lazarus - 如何将图像从 TImageList 加载到 TTrayIcon？

Question

是否可以在运行时将图像从 TImageList 加载到 TTrayIcon 中？怎么样？这是个好主意吗？或者是否有更优选的方法在运行时更改托盘图标的图像？

Answer 1

在带有 Lazarus 0.9.30.4 的 Windows 上使用由半透明 png 图像组成的图像列表进行测试，可以使用临时位图:

var
  Bmp: TBitmap;
begin
  Bmp := TBitmap.Create;
  try
    ImageList1.GetBitmap(0, Bmp);
    TrayIcon1.Icon.Assign(Bmp);
    TrayIcon1.Show;
  finally
    Bmp.Free;
  end;

我认为在运行时从图像列表图像分配图标没有任何问题。另请参阅组件 wiki page 中的示例用于在运行时分配图标的其他可能实现。