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

Question

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

我构建了一个包含大约 100 个小 png 图像的 resoruce 文件，并将它们随机加载到整个应用程序中。然后，我在每个 TImage 组件上都有 OnClick 事件，我确实在其中获取了发送者的名称（图像 1、图像 2 等），但不知道如何获取识别器的名称，该标识符当前从资源加载到发送方 （TImage） 中......

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

GetNamePath 不检索任何内容...

谢谢

Answer 1

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

Answer 2

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