Zitat von
SirThornberry:
ich mache bei mir in aller Regel eine Execute-Methode.
Hm, dann änderst Du aber auch das Programmgrundgerüst, oder? Weil normalerweise ja Form1 immer angezeigt wird, und das Program wird beendet, wenn Form1 geschlossen wird.
Vielleicht bin ich blind, aber ich sehe da keine andere Möglichkeit, außer im Form1.FormCreate/FormShow eine Login-Box darzustellen, und bei Falscheingaben halt mit Application.Terminate die Notbremse zu ziehen.
Dass man den Aufruf der Loginbox schöner gestalten kann, da gebe ich Dir recht. Normalerweise lasse ich diese Forms gar nicht erst automatisch erstellen, sondern habe eine function SqlLogin: Boolean, die die Form zur Laufzeit erzeugt und abschließend zerstört:
Delphi-Quellcode:
function SqlLogin: Boolean;
var dlg: TDlgSqlLogin;
begin
dlg := TDlgSqlLogin.Create(nil);
with dlg do begin
result := (ShowModal = mrOK);
Free;
end;
end;
(so runtergetippt, ungetestet)