Einzelnen Beitrag anzeigen

backdraft

Registriert seit: 19. Apr 2005
Ort: Hückeswagen
333 Beiträge
 
Delphi 11 Alexandria
 
#1

While Schleife um Application.Run

  Alt 1. Jun 2006, 19:10
Hallo zusammen,

ich möchte einen Login Dialog machen, der vor der Mainform ausgeführt wird.
Dann soll die Möglichkeit bestehen, das man sich abmelden und neu anmelden kann.

Dachte ich mach es einfach so:

Delphi-Quellcode:
 WHILE TRUE DO BEGIN
  IF NOT(frm_Login.Create(self).Execute) THEN halt;
  Application.Run;
  IF vabmelden = FALSE THEN break;
 END;
klappt aber gar nicht. geht trotzdem immer raus...
Oliver
  Mit Zitat antworten Zitat