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?