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