Hat schon ein bisschen weiter geholfen. Nun ist das Problem, dass der SplashScreen aufblendet udn gleichzeitig das eigentliche Programm, also es blendet sich praktisch die Form, die erst nach dem SplashScreen kommen soll ebenfalls auf und schiebt sich in den Vordergrund.
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);
Application.Run;
Finally
Form5.free;
Form5.close; // Splash Form
Form4.Show; // Main Form
end;
end.
und er kommt, wenn ich auf dem Main Formular auf den Button gehe, der das Programm schließen soll mit einer "AccessViolation"