Re: Procressbar zählen
10. Feb 2005, 22:23
CountDown := StrToInt(Edit3.Text);
ProgressBar1.Max := CountDown;
ProgressBar1.Min := 0; // Sollte auch nicht fehlen.
for i := 0 to CountDown do
begin
Sleep(1000);
ProgressBar1.Position := i;
end;
entsculdigt ich habe es do so gelöst gibt es dafür auch ein code?
|