Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Beste "Stelle" für eigenen Login-Prompt bei AD

  Alt 30. Dez 2008, 08:50
Dann erstelle dir doch dein Formular, wenn Du es brauchst. Ich mache das immer so:
Delphi-Quellcode:
Type
  TfmLogin = Class (TForm)
   ...
  ...
  Public
     Class Function Execute(Var aUser, aPasswd : String) : TModal;
  End;


Implementation
Function TfmLogin.Execute (Var aUser, aPasswd : String) : TModal;
Begin
  With TfmLogin.Create(Nil) Do Begin
    Result := ShowModal;
    If Result = mrOK Then Begin
       aUser := edUser.Text;
       aPassWd := edPassWd.Text;
    End;
    Release
  End
End;
...
Und irgendwo im Code (z.B. im 'OnWillConnect'):
Delphi-Quellcode:
...
  If TfmLogin.Execute (sUser, sPassWd) = mrOk Then
     TDatabaseModule.Login (sUser, sPassWd) // Oder einfach User/Passwd setzen...
  Else
     Raise Exception.Create ('Anmeldung abgebrochen')
Lass Dir die Formulare nicht am Begin des Programms erzeugen, das ist doch unnötig. Na ja, ein Hauptformular darfs schon sein. Erzeuge deine Formulare immer dann, wenn Du sie brauchst, z.B. mit meiner oben beschriebenen Methode.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat