wie meinst du funktioniert nicht?? also wenn durch die hohe rechenbewegung im hintergrund die progressbar nicht updatet, dann kannst du es event so bewerkstelligen:
Delphi-Quellcode:
procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
if Progressbar1.position > 99 then
progressbar1.position := 0;
else
begin;
progressbar1.position := progressbar1.position + 1;
Application.Processmessages;
end
end;
edit:
delphi tags gesetzt
mfg