![]() |
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Add bitmap to menu item
You can use SetMenuItemBitmaps function for decision of this problem.
procedure TForm1.FormCreate(Sender: TObject);
var
Picture: TPicture;
begin
Picture:=TPicture.Create;
Picture.LoadFromFile('Plus.BMP');
SetMenuItemBitmaps(
PopupMenu1.Handle,
0,
MF_BYPOSITION,
Picture.Bitmap.Handle,
Picture.Bitmap.Handle);
end;
-
More for developers