Как поместить BitMap в меню в Delphi?

Следующий код позволяет вставить изображение BitMap в меню:

var Bmp1 : TBitmap;
...
Bmp1 := TBitmap.Create;
Bmp1.LoadFromFile('C:\Where\B1.BMP');
SetMenuItemBitmaps(MenuItemTest.Handle,0,MF_BYPOSITION,Bmp1.Handle,Bmp1.Handle);
...

Параметры:

MenuItemTest — имя пункта меню /горизонтальная строка/
0,1 … позиция пункта меню, в который надо вставить BMP
первый из двух handl’ов — для показа невыбранного пункта меню (unchecked)
второй — для выбранного (checked). Они могут быть разные

Код можно вставить в обработчик OnCreate для формы. При уничтожении меню BitMap не уничтожается, это надо делать отдельно.

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (4 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий