Auslöser einer TAction auslesen

[sepp001]

Hallo zusammen,

ich habe eine Action mit mehreren Komponenten (Button, MenuItem) verlinkt. Wie kann ich herausbekommen, wer letzten Endes die Action angestossen hat? Der Sender scheint keine grosse Hilfe zu sein, denn mit

(Sender as TComponent).Name im Execute-Event der Action erscheint diese selbst.

Ciao,
sepp001

[marabu]

Guten Morgen.

Du suchst die property ActionComponent der BasisAction. Mit meinem Code-Beispiel möchte ich dich auf die Fallstricke aufmerksam machen:

Delphi-Quellcode:

procedure TTestForm.TestActionExecute(Sender: TObject);
begin
  if not Assigned(Sender) then
    ShowMessage('triggered by shortcut') else
  if not (Sender is TAction) then
    ShowMessage('someone blew it') else
  with Sender as TAction do
    if Assigned(ActionComponent)
      then ShowMessage(ActionComponent.Name)
      else ShowMessage(Name);
end;

Grüße vom marabu

[sepp001]

Vielen Dank,

das ist genau das, was ich gesucht habe.

Ciao,
sepp001

[sepp001]

Hat sich erledigt.

Ciao,
sepp001