Kopieren mit TProgressbar Ausserhalb des gültigen bereiches

[Sir Rufo]

Zitat von Union:

Ich meine es müsste in dem Callback heissen:

Delphi-Quellcode:

Form1.ProgressBar1.Max := 100;
Form1.ProgressBar1.Position := Position div Size * 100;

Das kann so leider nicht funktionieren, denn es wird erst Position div Size berechnet (da kommt immer 0 heraus, Ausnahme Position = Size, dann 1) und das mit 100 multipliziert.

Jetzt sollte auch klar werden, warum die Progressbar-Anzeige so springt

So wird dann auch richtig gerechnet:

Delphi-Quellcode:

Form1.ProgressBar1.Max := 100;
Form1.ProgressBar1.Position := ( 100 * Position ) div Size;