Zitat:
ProgressBar.Position := AWorkCount;
Application.ProcessMessages;
Sorry.. Das ist sehr schlecht und bremst die Progressbar nur aus.
versuche es mal so.
Delphi-Quellcode:
Progress := AWorkCount;
if (ProgressBar.Position <> Progress) then
ProgressBar.Position := Progress;
Die Progressbar wird nur dann aktualisiert wenn nötig.
das schont die Ressourcen und beschleunigt das zeichnen der Progressbar selbst.
gruss