Обновлено: 02 декабря, 2018

Как поместить 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 не уничтожается, это надо делать отдельно.

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439