Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#8

Re: Sender soll den Titel des Formulars bestimmen

  Alt 4. Feb 2009, 14:58
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?
  Mit Zitat antworten Zitat