hi,
ich hab hier ein splashscreen in mein programm eingefügt. klappt auch alles wunderbar nur hab ich auf dem splashscreen ein label und dass soll anzeigen was gerade passiert - zb wenn ich zu eienr datenbank connecte das das dann angezeigt wird.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| begin
SplashScreen := TSplashScreen.Create(Application);
SplashScreen.Show;
Application.Initialize;
SplashScreen.Update;
Sleep(1000);
Application.CreateForm(Tfrm_Haupt, frm_Haupt);
Splashscreen.Status.Caption := 'Hauptformular wird geladen'; //Label Caption wird geändert
SplashScreen.Update;
Sleep(1000);
SplashScreen.Hide;
SplashScreen.Free;
Application.Run;
end. |
also das mit der datenbank ist nur ein beispiel was mich stört ist das wenn ich den sleep befehl einsetze das dann immer kommt das sleep ein undefinierter bezeichner ist.
ich hab den code aus dem swissdelphicenter dort ist der sleep auch gesetzt. also muss es denke ich auch so funktionieren.
kann mir jemand erklären wie ich das programm dort kurz anhalten kann so das ich mal sehe das das mit dem splashscreen richtig funktioniert?
gr€€tz
vielen dank euch beiden