delphi如何在菜单栏前加入位图?

Question

delphi如何在菜单栏前加入位图,不是在每个菜单中加入,而是在窗体的左上角\菜单栏前加入,如同Adobe Reader6 那样的菜单,还请那位高手不吝赐教!

Answer 1

加入一个imagelist，选出合适的图标或位图，又击imagelist就可以添加你想要的了，然后选中mainmenu,在对像检视器中创建与imagelist的关联，设置一下各子项的关联值就行了

Answer 2

回复人： tonylk(=www.tonixsoft.com=) ( ) 信誉：120  2003-12-08 14:13:10Z  得分:20 
 
 
  
SysMenu:HMenu;  WM_ABOUT=WM_USER+20;      //******************************************
      //add about menu item
      SysMenu:=GetSystemMenu(Application.Handle,False);
      AppendMenu(SysMenu,MF_SEPARATOR,0,nil);
      AppendMenu(SysMenu,MF_STRING,WM_ABOUT,pchar('About...'));
      SysMenu:=GetSystemMenu(Handle,False);
      AppendMenu(SysMenu,MF_SEPARATOR,0,nil);
      AppendMenu(SysMenu,MF_STRING,WM_ABOUT,pchar('About...'));
      Application.OnMessage:=OnAppMessage;
procedure OnAppMessage(var Msg : TMsg ; Var Handled : Boolean);procedure TFormMain.OnAppMessage(var Msg : TMsg ; Var Handled : Boolean);
//about menuitem in system menu
//2002.09.01
begin
  if Msg.message=WM_SYSCOMMAND then begin
    if Msg.wParam=WM_ABOUT then begin
      try
        FormAbout:=TFormAbout.Create(self);
        FormAbout.ShowModal;
      finally
        FormAbout.Free;
      end;
    end;
  end;
end;  
 //至于你想要把他们加上图片。在插入菜单前，先对菜单处理一下。画好。

Answer 3

TMainMenu组件选中文件主菜单修改Bitmap属性就可以啦！