ProgressBar wird nicht upgedatet

[hsbc]

Hallo allerseits,

ich setze eine ProgressBar ein, um beim Kopieren von Datensätzen den Fortschritt anzuzeigen.

Delphi-Quellcode:

      while not Quelltabelle.Eof do begin
        Inc(Zaehler);
        ProgressBar.Position := Zaehler;
        ProgressBar.Update;

Bei den ersten 20-30 Datensätzen bewegt sich der Zeiger und dann bleibt er stehen, es kommt die Sanduhr und im Hintergrund läuft alles einwandfrei weiter. Nachdem die ca. 3000 Datensätze kopiert wurden, wird die ProgressBar auf 100% gesetzt, was ja auch richtig ist.

Warum erscheint die Sanduhr und die ProgressBar läuft nicht weiter ?

mfg
Herbert

[Torpedo]

Setze das in die Schleife:
Application.ProcessMessages

[hsbc]

Hi Torpedo,

danke !!! Hat Wunder gewirkt.

mfg
Herbert