Советы по Delphi

         

Динамическое создание пункта меню в 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]



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