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

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



Взято с Исходников.ru



Содержание раздела

---

---