Как сделать пункты меню с картинками?
Материал из 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