Parameter und Action (TActionList)

[Xplosion]

Hallo

Habe 5 TButton, die alle mit der gleichen Action (actEditorExecute) verlinkt sind.
Jetzt möchte ich in der Action auf eine Eigenschaft von dem Button zugreifen.

Also ungefähr so:

Delphi-Quellcode:

procedure TfrmMain.actEditorExecute(Sender: TObject);
var
  sCaption : String;
begin
  sCaption := (Sender as TButton).Caption; // was nicht funktioniert, da der Sender ja TAction ist.
end;

Wie kann ich also in der Action auf den Parent der Action zugreifen, oder anderst gesagt auf den Button, der die Action ausgelöst hat?

Theoretisch bräuchte die Action einen zweiten Parameter, vom Typ TObject der auf den Button zeigt. Oder gibt es da eine andere Lösung?

[Hawkeye219]

Hallo,

in der Eigenschaft TAction.ActionComponent findest du eine Referenz auf die auslösende Komponente.

Gruß Hawkeye

[Xplosion]

Das war´s, was ich gesucht habe.
Danke.