Советы по Delphi

       

Динамическое создание пункта меню в PopupMenu


Кто-нибудь может просветить меня по этому вопросу?

Решение 1

Procedure TTypeOfFrame.CreateAPopUpMenu;varNewItem: TMenuItem;FDragEnabledPopUpMenu : TPopUpMenu;beginNewItem := TMenuItem.Create(Self);NewItem.Caption := 'Пункт меню';FDragEnabledPopUpMenu:= TPopUpmenu.Create(Self);with FDragEnabledPopUpMenu dobeginItems.Add(NewItem);end;end;

Решение 2

Для динамического создания пункта меню вам необходимо создать процедуру в объекте (приватный метод формы), подобно этой:



procedure MyClick(Sender : TObject);

и затем, при создании нового пункта меню, назначить ему собственное событие OnClick следующим образом:

NewItem := TMenuItem.Create(Self);NewItem.Caption := 'Пункт меню';NewItem.OnClick := MyClick;

[000136]



Содержание раздела