获取当前在 TImage 组件中加载的资源的名称 - Delphi XE3

Question

我一直在四处寻找，但没有找到任何具体的东西......

我构建了一个包含大约 100 个小 png 图像的资源文件，并在整个应用程序中随机加载它们。 然后，我在每个 TImage 组件上都有 OnClick 事件，在那里我得到了发件人的名称（Image1、Image2 等），但不知道如何获取当前加载在发件人中的标识符的名称（TImage）从资源...

这是否可能，或者我需要存储某种字符串列表或数据库，其中包含有关每张图片使用哪种资源的信息...？

GetNamePath 不检索任何内容...

谢谢

Answer 1

TImage 组件（或图片和位图属性）不存储对已加载资源的任何引用。因此，您必须手动执行此操作。尝试使用引用资源 id 和 TImage 的字典 (TDictionary<TImage, Integer>)，或者您可以创建从 TImage 继承的新组件，添加一个新属性来存储加载的资源 id。

Answer 2

您可以先将图像加载到TImageList，然后根据需要将该列表中的单个图像检索到每个TImage，然后使用TImage.Tag 属性来跟踪检索到的索引。如果您使用TPNGImageList，您可以将额外数据与列表中的每个图像一起存储，就像原始资源标识符名称一样。