Sender soll den Titel des Formulars bestimmen

[nahpets]

Hallo,

Delphi-Quellcode:

procedure TForm4.FormShow(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 
end; 
end;

...
  // sieht das in etwa so aus?
  // dann sollte es funktionieren
  Unit4.Form4.FormShow(Unit1.Form1.speedbutton9);

  // Hier tippe ich mal darauf, dass Sender nicht SpeedButton9 ist, sondern eventuell Form1.
procedure TForm1.SpeedButton9Click(Sender: TObject); 
begin 
  Unit4.Form4.Show; 
end;

Was kommt dabei heraus, wenn Du mal einShowMessage(Sender.ClassName); in Dein FormShow einbaust?