Sender soll den Titel des Formulars bestimmen

[DeddyH]

Dann hat er aber wieder das Problem, dass er später die Caption abfragt/abfragen muss. Ich bleibe dabei: Property einführen und gut is.

[nahpets]

Hallo DeddyH,

Zitat von DeddyH:

Dann hat er aber wieder das Problem, dass er später die Caption abfragt/abfragen muss. Ich bleibe dabei: Property einführen und gut is.

Wieso Caption abfragen?
FormShow wird nicht mehr benötigt, die gesamte für dort geplante Logik, liegt in der Action und die ruft Form4.Show auf.
Und damit ist Sender genau der Schalter, den Du noch zusätzlich einführen möchtest.

[DeddyH]

Ich denke mal einfach, dass der Status (oder wie man das auch nennen möchte) nicht nur im OnShow ausgewertet wird.

[Thomas F]

Zitat von nahpets:

Hallo,

schonmal mit 'ner ActionList gearbeitet?
Eine Action kann man mehreren Buttons, Menüeinträgen... zuordnen und dort im ActionExecute(Sender: TObject) kann man wunderbar in der gewünschten Form den Sender abfragen. Sender ist hier immer das Control, dass die Action ausgelöst hat.

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;

Der Code geht nicht, habs ausprobiert
Form4.show muß in Form1.speedbutton9click aufgerufen werden, sonst erscheint nix

wie wärs mit

Delphi-Quellcode:

const Konstante1: string= 'Neuer Eintrag' ;
Konstante2 :string='Eintrag ändern';

procedure TForm1.SpeedButton9Click(Sender: TObject); 
begin 
Unit4.Form4.Caption:=Konstante2; 
  Unit4.Form4.Show; 
end;
procedure TForm1.SpeedButton11Click(Sender: TObject); 
begin 
Unit4.Form4.Caption:=Konstante1; 
  Unit4.Form4.Show; 
end;

procedure TForm4.FormShow(Sender: TObject); 
begin 
if Form4.Caption = Konstante1 then ...... 

if Form4.Caption = Konstante2 then ...... 
end;

[DeddyH]

Nein Siehe hier: http://www.delphipraxis.net/internal...=997645#997645

[Thomas F]

Funktioniert aber

[taaktaak]

Schon, ist aber wirklich eine schlechte Lösung!

[mirage228]

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.

[DeddyH]

Wenigstens einer, der mich versteht