Hallo zusammen,
ich habe ein splashform welches ich folgendermassen anzeige:
Delphi-Quellcode:
Application.Initialize;
splashForm := TSplashForm.Create(nil);
SplashForm.ShowOnTop;
Application.ProcessMessages;
SplashForm.Update;
Application.CreateForm(TArtikelstammdatenForm, ArtikelstammdatenForm);
Application.CreateForm(Tartikelbearbeitenform, artikelbearbeitenform);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
Ich möchte während der Anzeigedauer eine Progressbar laufen lassen und habe in eine Schleife im FormShow des splashforms
folgendes untergebracht:
Delphi-Quellcode:
for i:= 1 to 10 do
begin
ProgressBar1.StepIt;
end;
leider tut sich nix
ist die ereignisprocedure FormShow der falsche Ort, oder was mache ich falsch?
danke Gruss KH