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

Материал из DRKB

Как сделать пункты меню с картинками?[править | править код]

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


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

begin
  x := 10; // десятый пункт меню
  hHandle := GetMenuItemID(hMenu.Handle, x); 
  ModifyMenu(hMenu.Handle, hHandle, MF_BYCOMMAND or MF_BITMAP, hHandle, 
             PChar(Image1.Picture.Bitmap.Handle))


Source: Взято из http://forum.sources.ru
ID: 01298