Einzelnen Beitrag anzeigen

Benutzerbild von haentschman
haentschman
Online

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#8

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

  Alt 30. Dez 2008, 09:24
Guten Morgen...
Zitat:
DataModul
<Hauptformular>
<weitere Formulare inkl. DB-Login Formular>
Zitat:
- Ich möchte die Erstellungsreihnefolge nicht ändern, sprich das bisherige Hauptformular soll auch bleiben. Wenn ich aber im Hauptformular bspw. im OnShow-Ereignis die Connection aufmache bzw. dies beim OnCreate-Ereignis im Datamodul tue, ist ja das Login-Formular noch gar nicht initialisiert -> Zugriffsverletzung...
also...
- im OnCreate des Datamoduls ist dein DBLogin Formular noch nicht erzeugt, im OnShow des Hauptformulars schon...
- d.h. du könntest im OnShow des Hauptformulars durchaus dein Login Formular anzeigen.
- zeigst du dein Login Formular im OnShow des Hauptformulars an ist dein Hauptformular noch nicht sichtbar.
- möchtest du, daß dein Login über dem sichtbaren Hauptformular liegt, mußt du dir ein eigenes "AfterOnShow" kreieren
Delphi-Quellcode:
const
  WM_FERTIG = WM_USER + 100;

private
    procedure AfterOnShow(var Msg: TMessage); Message WM_FERTIG;
end;

procedure TForm.FormShow(Sender: TObject);
begin
  PostMessage(Handle, WM_FERTIG, 0, 0);
end;

procedure TForm.AfterOnShow(var Msg: TMessage);
begin
  // hier z.B. FLogin.ShowModal;
end;
  Mit Zitat antworten Zitat