要给MenuItem添加Image，可以和ImageList配合使用，要显示的图片可以用ImageIndex来指定。在本程序中添加了一个MainMenu1 : TMainMenu，在MainMenu1里面添加了些菜单项，只有菜单二没有指定图片，和一个ImageList1: TImageList。在这个小的试验里面，Code没有多少，主要是设置属性。
//给ImageList1添加图标
procedure TForm1.Button2Click(Sender: TObject);
Var
        TheBitmap : TBitmap ;
begin
        TheBitmap := TBitmap.Create ;
        TheBitmap.LoadFromFile(AppPath + 'Img\1.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;
        
        TheBitmap.LoadFromFile(AppPath + 'Img\2.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;

        TheBitmap.LoadFromFile(AppPath + 'Img\3.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;

        TheBitmap.LoadFromFile(AppPath + 'Img\4.bmp') ;
        ImageList1.Add(TheBitmap, nil) ;

        TheBitmap.Free ;
end;

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com 关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩