PopUpMenu нужно динамически создать пункты

[Rost_1]

form1.PopupMenu1 := TPopupMenu.Create(Self);

form1.PopupMenu1.Items.Add(NewItem( '.... ', 0, False, True, MenuItem1Click, 0, 'MenuItem1'));

в таком методе ошибка... Делфи незнает што такое Self и MenuItem1Click...

в програме PopupMenu находитса в другом модуле... низнаю может ошибка в етом... скинте какойто другой метод или помогите исправить етот...

Зарание спасибо!!!)))

[eduard93]

Думаю вместо Self стоит поставить form1. А MenuItem1Click у вас же тоже не сам по себе? Если это метод form1 то и писать надо "form1.MenuItem1Click".

[_SERGEYX_]

form1.PopupMenu1.Items.Add(NewItem( ........

А зачем таким образом меню создавать? Я всегда делал так... пример...

procedure TForm1.RzBitBtn1Click(Sender: TObject);
var mu: TMenuItem;
begin
    mu := TMenuItem.Create(Self);
    mu.Caption := 'Новый пункт меню';
    mu.Tag := 1;
  //TMenuItem(mu).OnClick := MyMenuClick;
    TotalMenu.Add(mu);
end;

В примере TotalMenu - это тот пунк меню в котором будет создан новый пункт. Если он не в корне, то будет создано submenu.

P.S.
Впрочем, проверил... и твой пример нормально работает.