[TOJluK]

Динамически создаю PopUp элементами из базы:

Код:

 While not IB_Concern_obj.Eof do
  begin
  NewItem:=TMenuItem.Create(self);
  NewItem.Action:=Action1;
  NewItem.Caption:=IB_Concern_obj.FieldByName('Name').AsString;
  PopupMenu_concern.Items.Add(NewItem);
  IB_Concern_obj.Next;
  end;

Заранее кол- во эл- ов не известно. Всем присваиваю один Action. Необходимо в обраюотчике Action1Execute выхватить Caption элемента меню PopUp. Кто знает как?

[TOJluK]

Неужели никто не знает? Или я плохо объяснил суть?
Вот процедура Action1Execute:

Код:

procedure TDataModule_main.Action1Execute(Sender: TObject);
begin
// Edit1.Text:=название пункта меню, которое вызвало событие
end;

[PhoeniX]

Суть, собсно, ясна... помог бы, да не работал с таким... Смутное подозрение на то, что надо копать к Sender'у...

[Nyctos Kasignete]

Код:

Edit1.Text := (Sender as TMenuItem).Caption;

?

P.S. А, нет... -_- С Action1Execute не пройдет. Можно всем создаваемым Items назначать не Action, а один и тот же метод OnClick, например...

Код:

While not IB_Concern_obj.Eof do
  begin
    NewItem:=TMenuItem.Create(self);
    NewItem.OnClick:=AnyItemClick;
    NewItem.Caption:=IB_Concern_obj.FieldByName('Name').AsString;
    PopupMenu_concern.Items.Add(NewItem);
    IB_Concern_obj.Next;
end;

.........

procedure TForm1.AnyItemClick(Sender: TObject);
begin
  Edit1.Text := (Sender as TMenuItem).Caption;
end;

[TOJluK]

Спасибо, не додумался назначить не Action, а метод OnClick! Так работает.