Ich verwende für meinen SplashScreen eine MarqueeProgressBar, das Problem ist nur, dass sie sich im Minutentakt einen Schritt weiter bewegt und nicht flüssig läuft, wie man das von Windows XP kennt.
Delphi-Quellcode:
program Project4;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
SplashScreen in 'SplashScreen.pas' {Form5};
{$R *.res}
begin
Application.Initialize;
Form5 := TForm5.Create(Application);
with TForm5.Create(nil) do
try
Form5.Show;
Form5.Update;
MarqueeProgressBar1.Max := 100;
Show; // Startbildschirm mit ProgressBar anzeigen
Update; // Anzeige von Form5 auslösen
Application.Initialize;
Application.Title := 'Project4';
Application.CreateForm(TForm4, Form4);
MarqueeProgressBar1.StepBy(25);
Application.CreateForm(TForm1, Form1);
MarqueeProgressBar1.StepBy(25);
Application.CreateForm(TForm3, Form3);
MarqueeProgressBar1.StepBy(25);
Application.CreateForm(TForm2, Form2);
MarqueeProgressBar1.StepBy(25);
Finally
free;
Form5.visible :=false;
end;
Application.Run;
end.
das wäre der code, wobei nes sich bei Form5 um die SplashScreen Form handelt.