仅通过指定路径创建TImageList

Question

在Delphi2007中，图像在设计时加载到TImageList中。这就引出了以下问题：

我有一个包含我在application

• Whenever中使用的图形的文件夹，我想要更改，比方说“保存”的图标，我必须更改文件夹中的图形(对于我自己的purposes)

• Iterate，application

• Change中的all TImageLists，TImageList

中的图形)

​

有没有任何方法(组件，编译脚本，.)要自动执行步骤2和步骤3，即在设计时只指定图形路径，从而创建对实际图形文件的依赖？

Answer 1

您可以创建TImageList的后代，并在其中添加这种逻辑。

由于引用TImageList中的图像的组件是按索引执行的，所以让您的后代拥有一个TStrings类型的ImagePaths属性是最容易的，其格式如下：

#=Filename

还可以添加一个字符串类型的属性BasePath。

然后，在加载该组件时，它可以自动地在内存中重新加载这些映像。

你甚至可以让它成为一个设计时专家，在设计师中加载图像。

-耶伦

Answer 2

类从来都不是完整的编译时。设计时类也是从资源中流的。

Answer 3

我在运行时将图像加载到TImagelist中。由于这个原因，我不会在设计时分配任何图像。它们都是作为资源添加到exe中的，我从那里在运行时加载它们。这也意味着可以在不重新编译exe的情况下更改图像。