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

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

© GAiST 2004 - 2008