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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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

Следующий код показывает, как добавить картинку в виде объекта 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));