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