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

01.01.2007

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

Взято из https://forum.sources.ru