Следующий пример демонстрирует добавление битмапа в пункт PopUpMenu при
помощи API функции SetMenuItemBitmaps(). Эта функция имеет следующие параметры:
дескриптор всплывающего меню, номер (начиная с нуля) пункта меню в который мы
хотим добаить битмап, и два дескриптора битмапов (одна картинка для меню в
активном состоянии, а вторая для неактивного состояния).
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
Pop11: TMenuItem;
Pop21: TMenuItem;
Pop31: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private{ Private declarations }
bmUnChecked: TBitmap;
bmChecked: TBitmap;
public{ Public declarations }end;
var
Form1: TForm1;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
bmUnChecked := TBitmap.Create;
bmUnChecked.LoadFromFile(
'C:\Program Files\Borland\BitBtns\ALARMRNG.BMP');
bmChecked := TBitmap.Create;
bmChecked.LoadFromFile(
'C:\Program Files\Borland\BitBtns\CHECK.BMP');
{Добавляем битмапы в пункт меню начиная с 1 в PopUpMenu}
SetMenuItemBitmaps(PopUpMenu1.Handle,
1,
MF_BYPOSITION,
BmUnChecked.Handle,
BmChecked.Handle);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
bmUnChecked.Free;
bmChecked.Free;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
pt := ClientToScreen(Point(x, y));
PopUpMenu1.Popup(pt.x, pt.y);
end;
Статья Как поместить маленькие битмапы в TPopupMenu раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
:: 2012-08-01 11:13:25 :: re:Как поместить маленькие битмапы в TPopupMenu
Здравствуйте, мне необходимо добавить иконку в один из пунктов TMainMenu. Использую такой же принцип, какой описан в статье. Но этот метод не выводит к сожалению картинку в MenuItem. Читал на других форумах, что этот метод не срабатывает.
Если я это делаю вручную, т.е. выводу компонен т TMainMenu на форму, захожу в его настройки, выбираю нужный мне пункт, выбираю его свойство bitmap и вручную загружаю картинку, то при компиляции картинка есть. А программно не вставляется. Подскажите, почему?
У меня delphi XE и win32. Но необходимо сделать так, чтобы работало и на win32 и на win64
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.