Auslöser einer TAction auslesen

[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