Login-Formular schliessen und das Hauptformular öffnen

[Ati]

Hallo zusammen,

ich habe zwar einiges zu o.g. Thema gefunden aber ich sehe wohl den Wald vor lauter Bäumen nicht. Ich möchte das mein Login-Formular nach der Anmeldung das Hauptformular öffnet und sich selber schließt. Bekomme ich aber trotz etlicher Hinweise nicht hin.

Danke im voraus

Ati

[Daniel B]

Hi,

bevor du dein Hauptformular anzeigst, versteckst du es mit Hide, bringst dein Login-Fenster als ShowModal, wenn alles eingegeben wurde, schliesst du es und Show(st) dein Hauptform...

[Ati]

Thx. Werde es morgen früh mal versuchen. Irgendwie baue ich hier jetzt nur noch Mist.

[Alexander]

Schau dir auch mal die Threads zu den Splashscreen an. Das ist ja so etwas ähnliches...

[Ati]

Hi,

also das mit dem Splashscreen war ein guter Hinweis. Habe ich auch soweit hinbekommen. Was jedoch stört ist, das das Hauptformular auch sichtbar ist. Des weiteren frage ich mich ob es richtig/sinnvoll ist ein Login-Formular wie ein Splashscreen zu behandeln.

[RavenIV]

Ein Login-Fenster ist sicherlich keine Splashscreen.
Die Splash wird schon bei Programmstart angezeigt und soll die Zeit überbrücken, bis das Hauptfenster angezeigt werden kann (wegen Initialisierung oder so).
Das Loginfenster wird vom Hauptfenster angezeigt und das Hauptfenster ist dann auch im Hintergrund zu sehen.

Soviel zu meiner persönlichen Meinung. Sie muss sich nicht mit der Meinung anderer Leute decken.

[hitzi]

Bau`s doch einfach im Projektquelltext(Projekt/Quelltext) vor dem Erstellen des Hauptfensters ein. Dann kannst du selber entscheiden, ob das Hauptfenster angezeigt werden soll oder nicht.

[Ati]

Habe es wie folgt gemacht. Mein .lpr (Lazarus) Quelltext sieht wie folgt aus:

Delphi-Quellcode:

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms,
  unit1 in 'unit1.pas',
  unit2 in 'unit2.pas'
  { add your units here }, SQLDBLaz;

begin
  Application.Initialize;

  frmSplash := TfrmSplash.Create(nil);
  frmSplash.Show;
  Application.ProcessMessages;
  application.ShowMainForm:=false;
  Application.CreateForm(TfrmHaupt, frmHaupt);
  Application.Run;

end.

Im Login-Formular habe ich beim Button-Klick folgende Prozedur:

Delphi-Quellcode:

procedure TfrmSplash.Button1Click(Sender: TObject);
begin
  frmHaupt.Visible:=true;
  close;
  frmsplash :=nil;
end;

Und das Ergebnis ist so wie ich es mir vorgestellt habe. Kann man das so machen oder ist noch was zu beachten??

Ati