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

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

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...