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

Previous  Top  Next

    
 

 

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

Code:

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))

 

 

©Drkb::01298

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