Zugriff v Unterformular auf eine Prozedur des Hauptformulars

[shmia]

Zitat von MarcusB:

Im OnClose-Event dieses Unterformulars würde ich gerne die Verbindungsprozedur aus dem Hauptformular erneut aufrufen, um zu checken ob die Verbindung jetzt klappt.
Ich mach doch da wieder einen brutalen Denkfehler, oder ?

Genau
Das Unterformular braucht/darf vom Hauptformular nichts wissen.
(Stell dir vor, du willst das Unterformular in einem anderen Projekt benutzen)
Das Hauptformular benützt das Unterformular; die andere Richtung ist verboten.
Das Unterformular präsentiert die Werte der Steuerelemente über Properties.
Du benötigst wahrscheinlich folgende 4 Properties:

Delphi-Quellcode:

property Servername:string;
property Databasename:string;
property Username:string;
property Password:string;

Delphi-Quellcode:

procedure THauptformular.BeiConnectionFehler;
begin
   if Unterformular.ShowModal = mrOK then
   begin
      // Benutzer hat OK geklickt
      // also mit neuen Einstellungen versuchen zur DB zu verbinden
      Database1.Servername   := Unterformular.Servername;
      Database1.Databasename := Unterformular.Databasename;
      ...
   end
   else
   begin
      // Benutzer hat nicht OK geklickt und hat das Spiel satt
      Application.Terminate;
   end;
end;