delphi - 在运行时查看 TImagelist 的内容

Question

是否可以在运行时调用 TImagelist 编辑器来查看我的 TImagelist 的内容？

Answer 1

该编辑器是设计时编辑器，在运行时不可用，但您可以通过调用其 Draw 方法并指定要绘制的图像的索引，在任何 Canvas 上绘制保存在 ImageList 中的任何图像。下面的示例代码将 Form1 上 ImageList1 中保存的所有图像绘制在一个垂直列表中:

var
  i : Integer;
begin
  for i := 0 to ImageList1.Count-1 do
    ImageList1.Draw(Form1.Canvas, 16, 16 + (i * ImageList1.Height),i,True);
end;