如何在菜单中显示图片?谢谢!

Question

用过Office97吗？是不是觉得在菜单中显示图标很新鲜？但是如何实现呢?
请大家对如下代码进行指正?谢谢!!procedure TForm1.FormCreate(Sender: TObject);
var
  Bmp:TPicture;
begin
  Bmp:=TPicture.Create;
  Bmp.LoadFromFile('d:\abort.bmp');
  SetMenuItemBitmaps(bb1.Handle,0.MF_BYPOSITION,Bmp.Bitmap.Handle,Bmp.Bitmap.Handle);
end;我运行时提示出错,代码如下:[Error] Unit1.pas(34): Incompatible types: 'Cardinal' and 'Extended'
[Error] Unit1.pas(34): Statement expected, but expression of type 'Integer' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 1

如果你用Delphi的话,就不用这么写了,用控件就行了.

Answer 2

给Menu的Images属性连接一个ImageList控件,然后对MenuItem的ImageIndex的属性进行修改就可以了

Answer 3

类型错误，不认识单词多查查字典！第一个参数类型是HMENU,Delphi中的菜单句柄！而在你的代码中连用GetMenu、GetSubMenu取得菜单句柄的语句都没看见！0.MF_BYPOSITION又是什么？这可是基本的语法错误，写程序要细心！关于怎么用API，最好是去查查MSDN！在Delphi没必要用API完成相关操作！TMainMenu和TPopupMenu已经为我们封装好了！设置其菜单控件的ImageList,再设置菜单项的ImageIndex！