Zitat von
nahpets:
Hallo,
Delphi-Quellcode:
// procedure TForm4.FormShow(Sender: TObject);
procedure TForm4.Action1Execute(Sender: TObject);
begin
if Sender = Unit1.Form1.speedbutton9
then Form4.Caption := ' Eintrag ändern';//Unit4
if Sender = Unit1.Form1.Speedbutton11
then Form4.Caption :='Neuer Eintrag';//Unit4
Form4.Show;
end;
Das kann auch nicht gehen, weil der Sender in meisten Fällen die Action selbst ist. Da musst man erst nach TAction() casten und kann dann über die ActionComponent an die gewünschte Komponente (und man müsste auch noch Fälle abfangen, wo die Action von "wo anders" aufgerufen wird...), aber ich würde nichtsdesto trotz die Lösung mit der Property vorziehen.