Динамическое создание пункта меню в PopupMenu
Кто-нибудь может просветить меня по этому вопросу?
Решение 1
Procedure TTypeOfFrame.CreateAPopUpMenu;
var
NewItem: TMenuItem;
FDragEnabledPopUpMenu : TPopUpMenu;
begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := 'Пункт меню';
FDragEnabledPopUpMenu:= TPopUpmenu.Create(Self);
with FDragEnabledPopUpMenu do
begin
Items.Add(NewItem);
end;
end;
|
Решение 2
Для динамического создания пункта меню вам необходимо создать процедуру в объекте (приватный метод формы), подобно этой:
procedure MyClick(Sender : TObject);
|
и затем, при создании нового пункта меню, назначить ему собственное событие OnClick следующим образом:
NewItem := TMenuItem.Create(Self);
NewItem.Caption := 'Пункт меню';
NewItem.OnClick := MyClick;
|
[000136]