Methoden des anderen Child-Forms aufrufen

[x000x]

Moin moin,

habe dir auch schon per PN geschickt....

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i := 0 to Form1.ComponentCount-1 do                       // Alle Komponenten des Hauptformular durchsuchen
    if Form1.Components[i].ClassType = TForm3 then
       with TForm3(Form1.Components[i]) do   // <-- Die Zeile hat dir gefehlt bzw. deine "fehlerhafte" Zeile mit
                                             // TForm3(Form1.Components[i]).Label1.Caption := 'Uhrzeit: '+ TimeToStr(now());
                                             // ersetzen, funktioniert auch
         Label1.Caption := 'Uhrzeit: '+ TimeToStr(now());    // Diese Anweisung erzeugt den Fehler

//      Form3.Button1Click(Self);                                 // Diese Anweisung erzeugt den Fehler
end;

// Hier wird das gleiche gemacht wie bei Btn1
procedure TForm2.Button2Click(Sender: TObject);
begin
   // Prüfen, ob Klasse von TForm3, falls Form3 noch nicht erzeugt wurde
   // gibt der Click auf den Button keinen Fehler aus...
   if Form1.FindComponent('Form3') is TForm3 then
   // Wenn ja, dann können wir Casten
      TForm3(Form1.FindComponent('Form3')).Label1.Caption := 'Huhu';
end;