Delphi-Quellcode:
procedure TSplashScreen.Timer1Timer(Sender: TObject);
begin
if Progressbar1.position > 100 then
progressbar1.position := 0;
else
progressbar1.position := progressbar1.position + 1;
end;
das sollte so eigentlich funzen aus dem stehgreif
edit:
hatte mein probleme mit dem begin und end
edit2:
ps du brauchst in dieser version die var i nicht mehr...
ausserdem könntest du auch
if Progressbar1.position > 99 then
nehmen, das musst du ausprobieren wie du es besserbrauchst..
edit3:
ok, hab das fehlerhafte inc entfernt, so viel edits, ist schon wieder spät am abend, man man
edit4: so nun aber und jetzt geh ich pennen, langer arbeitstag
mfg