Sender soll den Titel des Formulars bestimmen

[Thomas F]

Zitat von taaktaak:

Ja, vermutlich richtig!
Aber der Versuch, den Sender des OnShow() auszuwerten, sollte doch nun "vom Tisch sein"

Der Code enthält noch mehr, daher wollte ich das Ganze nicht in das Speedbutton9click oder Speedbutton11click
reinschreiben.
Es gäbe noch die Möglichkeit

Delphi-Quellcode:

procedure TForm1.SpeedButton9Click(Sender: TObject); 
begin 
Unit4.Form4.Caption:='Eintrag ändern';
  Unit4.Form4.Show; 
end;
procedure TForm4.FormShow(Sender: TObject); 
begin 
if Form4.Caption = 'Eintrag ändern' then ......

if Form4.Caption = 'Neuer Eintrag' then ......
end;