Sender soll den Titel des Formulars bestimmen

[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;