Hallo,
ich habe ein relativ große Programm in Delphi geschrieben und nun wurde ich gebeten einen Majormode hinzuzufügen (Auswahl-Bildschirm).
Das Programm startet automatisch beim Einloggen. Dann taucht der Auswahlbildschirm auf, auf dem man quasi entweder das Porgramm an sich startet oder eben Administrative Sachen machen kann. Auch Log-file anschauen und eine Art Demo-Mode wurden implementiert.
Ich hatte das so gedacht, dass über den majormode die anderen Fenster (Programm, Administration, Einstellungen usw) als modales Fenster zu starten. Das hat den Vorteil, dass immer nur ein Fenster aktiv ist und man nicht mehrere gleichzeitig starten kann.
Wenn man man nun sagt, dass man das eigentliche Programm starten will. dann werdem bei create die nötigen
DB-Verbindungen erstellt und auch eine Komponente um ein Relais anzusteuern.
Nun dachte ich "hey, man kann das ja Starten, beenden, starten" so dass ich die Verbindungen bei Onshow verbinden lasse. Zum einem habe dann lernen müssen. dass ein Form.close nicht im Form.Onshow gemacht werden kann (meist Verbindung Ja dann Ok, ansonsten gib Meldung und schliesse). hat dazu irgendjemand eine Idee am Rande? Habe eine Lösung, welche mir pesönlich nicht gefällt.
Das Problem ist nun, dass erst bei Form.Destroy die Komponenten frei gegeben werden. Wenn jetzt nach erfolgreichern Einsatz der Majormode aufgerufen wird und der Server über nacht dank backUp nicht mehr erreicht wird, dann kommen Verbindungsfehler .... die ganze Nacht. Wie kann ich das verhindern, bei Form.onclose sage ich immer trenne Verbindung zu
DB und Relais .... leider ist es dem Programm egal ...
Verabschiede dich einfach vonn autocreated forms, jedenfalls für dieses (nun modale) "Programm"-Form. Erzeuge das Form, wenn es vom "Major mode"-Form aufgerufen wird und zerstöre es, wenn der Benutzer es schließt. Die sauberste Methode dafür (meiner unbescheidenen Meinung nach
) ist es, dem Form eine public class function zu verpassen, die das erledigt und vom major mode aufgerufen wird. Sowas wie
Delphi-Quellcode:
function TProgramform.Execute: boolean;
var
LForm: TProgramform;
begin
Result := false;
if PreconditionsVerified then begin
LForm := TProgramform.Create(nil);
try
Result := LForm.ShowModal = mrOK;
finally
LForm.Free;
end;
end; {if}
end;
PreconditionVerified wäre eine andere class function, die prüft, ob notwendige Vorbedingungen erfüllt sind, z. B. eine Datenbankverbindung existiert. Zu versuchen, ein Form während des Vorgangs der Erzeugung wieder zu schließen, weil irgendwas fehlt, ist ein übler Anfängerfehler; man sollte immer vorher sicherstellen, dass das Form seine Aufgabe auch erfüllen kann.