15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту




Как сделать пункты меню с картинками

Следующий код показывает, как добавить картинку в виде объекта TImage в объект TMenuItem.

var
   hHandle: THandle;
   x: integer;
   // visual controls:
   hMenu: TMenuItem;
   Image1: TImage;

...

  x:= 10; // десятый пункт меню
  hHandle := GetMenuItemID(hMenu.handle, x);
  ModifyMenu(hMenu.handle, hHandle, MF_BYCOMMAND Or MF_BITMAP, hHandle,
             PChar(Image1.picture.bitmap.handle))