popupmenu динам. компоненты

[Horus92]

У меня в компоненте popupmenu элементы создаються динамически

 NewItem:=TMenuItem.Create(self);
                  NewItem.Action:=Action1;
                  NewItem.Caption:=temp;
                  PopupMenu1.Items.Add(NewItem);

Как мне обработать какой элемент был нажат в popupmenu через процедуру Action1.

[Stilet]

Я не знаю как через Action, но если бы ты поставил

 NewItem.OnClick:=ClickMethid;

Где ClickMethid обработчик типа TNotifyevent
то в нем можно было бы получить кликнутый элемент через TMenuItem(Sender)

[Korben5E]

в ActionExecute - так-же передается Sender
это указатель на объект вызвавший Action

[Horus92]

Да sender передаеться но если написать (sender as TMenuItem).Caption то пишет

invalid class typecast

еще попробывал через hint та же ошибка
вот как делаю вывод в richedit

REdit1.Lines.Text:=StringReplace(RE dit1.Lines.Text,'['+inttostr(numo+1)+']',(sender as TMenuItem).Hint,[rfReplaceAll]);

также если возвращать через TMenuItem(Sender).caption то почему постоянно возвращает странную строку которая точно не присутсвует ни в одной переменной

|ad

[Korben5E]

Сообщение от Horus92

Да sender передаеться но если написать (sender as TMenuItem).Caption то пишет
еще попробывал через hint та же ошибка
вот как делаю вывод в richedit

также если возвращать через TMenuItem(Sender).caption то почему постоянно возвращает странную строку которая точно не присутсвует ни в одной переменной

ну тогда хрен знает

в простых процедурах как Stilet написал - все нормально получается
почему тут nil в Sender-е.... тайна Action

[Horus92]

переделал вместо Action сделал OnClick как сказал Stilet и заработало.

[Stilet]

это указатель на объект вызвавший Action

Неправильно.
Это указатель на TBasicAction (если чеснее то на TAction, которая его наследует).
А вот он уже имеет свойство ActionComponent, которое должно указать на компонент вызвавший акцию.

[Korben5E]

Сообщение от Stilet

Неправильно.
Это указатель на TBasicAction (если чеснее то на TAction, которая его наследует).
А вот он уже имеет свойство ActionComponent, которое должно указать на компонент вызвавший акцию.

трудно сказать, потому как Action1Execute назначается в MenuItem.OnClick.... как обычная процедура

[Stilet]

Да что тут думать?
Читаем хелп и пробуем пример из него:

procedure TForm1.Action1Execute(Sender: TObject);
begin
 caption:=TMenuItem(TAction(Sender).ActionComponent).Caption;
end;

Учтя что на этот МенюИтем посажена некая Action, даже нестандартная

[Korben5E]

блин.... надо себе хелп поменять - у меня такого нет