Login-Formular schliessen und das Hauptformular öffnen

[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