so wie ich das verstanden hab willst du eine einfache form, wo draufsteht was er grad lädt, die nachm laden weggeht und weg bleibt...
also einen SplashScreen
nummer 1 gibts dazu hier beiträge, nummer 2 ist hier ein beispiel:
Delphi-Quellcode:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form_Main},
Unit2 in 'Unit2.pas' {Form_Splashscreen};
{$R *.res}
begin
Form_SplashScreen := TForm_Splashscreen.Create(Application);
try
Form_SplashScreen.Show;
Form_Splashscreen.Refresh;
Application.Initialize;
Application.CreateForm(TForm_Main, Form_Main);
finally
Form_Splashscreen.InitializationDone:=true;
end;
Application.Run;
end.
dann kommt das in die deklaration des splashscreens
Delphi-Quellcode:
private
{ Private-Deklarationen }
FInitializationDone: Boolean;
procedure SetInitializationDone(const Value: Boolean);
public
{ Public-Deklarationen }
property InitializationDone: Boolean read FInitializationDone write SetInitializationDone;
end;
und dann noch diese procedures zum splashscreen:
Delphi-Quellcode:
procedure TForm_SplashScreen.SetInitializationDone(const Value: Boolean);
begin
FInitializationDone := Value;
Close;
end;
procedure TForm_Splashscreen.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
Form_Splashscreen := nil;
end;
procedure TForm_Splashscreen.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := FInitializationDone;
end;
die ladevorgänge machste jetzt im oncreate der form_main...
das sollte es sein...