СВойства итема PopupMenu

← →
tradakad (2004-12-27 14:28) [0]

Подскажите пожалуйста, как назначить иконку для итема PopupMenu?

← →
Переяслов Григорий (2004-12-27 16:55) [1]

TMenuItem.Bitmap ?

← →
begin...end © (2004-12-27 16:57) [2]

Или TMenuItem.ImageIndex

← →
tradakad (2004-12-27 17:10) [3]

это конечно хорошо, но вот как это сделать не используя graphics т.е. у меня есть хендл иконки, как енту иконку назначить итему?

← →
Sandman25 © (2004-12-27 17:27) [4]

TMenuItem.Bitmap.Handle := ?

← →
tradakad (2004-12-27 17:36) [5]

PopupMenu1.Items[0].Bitmap.Handle := Application.Icon.Handle

по крайней мере так не работает .. иконка не появляется..

Загрузить иконку в TImageList, а перед этим выставить нужный TMenuItem.ImageIndex:

procedure AddIconToImageList(ImageList: TImageList; IconName: string);
var h: hIcon;
ic: TIcon;
begin
ic:=TIcon.Create; ic.ReleaseHandle;
h:=LoadIcon(HInstance,PChar(IconName));
if h<>0 then ic.Handle:=h; ic.Transparent:=true;
ImageList.AddIcon(ic); ic.Free;
end;

СВойства итема PopupMenu Найти похожие ветки