Prog friert scheinbar mit "Keine Rückmeldung" ein

[jfheins]

Zitat von DeddyH:

Die Holzhammer-Methode: innerhalb der Schleife Application.ProcessMessages aufrufen. Die elegantere und solidere Lösung: die Schleife in einen Thread auslagern und bei Bedarf synchronisiert auf die Oberfläche zugreifen. Beispielcode sollte sich reichlich im Forum finden lassen.

Ich bin mal so nett, weil ich Application.ProcessMessages wirklich nicht mag

So in der Richtung müsste das aussehen:

Delphi-Quellcode:

type
  TMyThread: class (TThread)
    Progress: Integer;

    procedure Execute; override;
    procedure VCL_Result;
  end;


procedure TMyThread.Execute;
var
   T: Integer;
begin
   Progress := 0;
   synchronize (VCL_Result);
   T = GetTickCount();

   // Der Threadcode
   for ....
      if Integer(GetTickCount() - T) > 250 then begin
         T := GetTickCount();
         synchronize (VCL_Result);
      end;
      
      // Rechnen
   end;

   Progress := 100;
   synchronize (VCL_Result);
end;

procedure VCL_Result
begin
   Form1.ProgressBar.Position := Progress;
end;