如何做像豪杰超级解霸中的下拉菜单。。

解决方案 »

  1.   

    假设你打算为“文件”菜单栏 (name 为 n1) 下的第 9 项 ( 序号改为 8) “打印”添加一个打印机图标 ( 文件名为 c:\inter.bmp),那只要在 form 的 OnCreate 事件中这样编写 :   var    Bmp : TPicture;   begin   Bmp := TPicture.Create;   Bmp.LoadFromFile( ' c:\printer.bmp ' );   SetMenuItemBitmaps(n1.Handle,8, MF_BYPOSITION,Bmp. Bitmap. Handle, Bmp.Bitmap.Handle);   end;  其中 ,第一个 bitmap.handle 用于未选定菜单项 (unchecked),第二个则指定了选定 (checked) 时所显示的 bitmap,同异皆可。另外 ,由于菜单项的高度有限 ,所以 ,若 bitmap 过大 ,只有左上角被显示。