delphi - 添加 TMenuItem 位图

Question

我想将位图添加到动态创建的 TMenuItem 中。使用此代码它不起作用，我的菜单上没有该图像。怎么了？

procedure TForm3.FormCreate(Sender: TObject);
var
   item : TmenuItem;
   icon : TIcon;
begin
   item := TMenuItem.Create(PopupMenu1);
   item.Caption := 'coucou';
   icon := TIcon.Create;
   icon.LoadFromFile('d:\SmallIcon.ico');
   icon.Height := 16;
   icon.Width := 16;
   item.Bitmap.Canvas.Draw(0,0,icon);
   PopupMenu1.Items.Add(item);
end;

Answer 1

TMenuItem 上的 Bitmap 属性不是此处的方法。您确实应该使用图像列表。这将允许您以可管理的方式在 UI 元素之间共享图像。

1. 将图标添加到 TImageList。
2. 设置菜单上的 Images 属性(即 PopupMenu1)以引用图像列表。
3. 将菜单项的图像索引设置为列表中图标的索引，即，如果是第一个图像，则为 0。

当然，您确实也应该使用操作，在这种情况下，您只需为操作设置 ImageIndex ，框架就会负责将其分配给菜单项。

顺便说一句，我注意到 Vista 主题菜单的 Delphi 实现存在大量微妙的错误，其中许多与图像绘制有关。然而，这些错误对视觉影响相对较小。