|
要给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;
|
上海市商城路341号紫光大厦1305室 
+0086-21-58878998 
+0086-21-58879030
HappyFreeAngel@hotmail.com