Forum: Sonstige Fragen zu Delphi
Delphi
by Noobinator,
7. Feb 2008
Probiers mal so
var start:Dword;
begin
start := gettickcount; // Startzeit merken
while true do // zum test mal ne Endlosschleife
begin
if gettickcount - start >= 1000 then //1 Sekunde abwarten
begin
Progressbar1.StepBy(10); // um 10 weitergehen
Forum: Sonstige Fragen zu Delphi
Delphi
by Noobinator,
7. Feb 2008
Progressbar1.Position := 10;
setzt deine Position ja immer wieder auf 10.
wenn schon dann:
Progressbar1.Position := Progressbar1.Position + 10;
um immer 10 Schritte weiter zu gehen.