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;