@DymonD
Jepp, so in etwa...
In der Delphi 5 Hilfe steht:
Delphi-Quellcode:
begin
Application.Initialize;
with TForm5.Create(nil) do
try
ProgressBar1.Max := 100;
Show; // Startbildschirm mit ProgressBar anzeigen
Update; // Anzeige von Form5 auslösen
Application.CreateForm(TForm1, Form1);
ProgressBar1.StepBy(25);
Application.CreateForm(TForm2, Form2);
ProgressBar1.StepBy(25);
Application.CreateForm(TForm3, Form3);
ProgressBar1.StepBy(25);
Application.CreateForm(TForm4, Form4);
ProgressBar1.StepBy(25);
finally
Free;
end;
Application.Run;
end.
[Edit]Ups, Robert's Wutanfall zu spät gesehen...[/Edit]