ProgressBar mit Timer synchron

[jfheins]

Wie wärs mit eine Variable, die du im OnTimer auf % 10 prüfst - dann wird dein eigentliches OnTimer nur alle 10 Intervalle aufgerufen, du kannst aber bei jedem den Fortschrittsbalken aktualisieren ?

Delphi-Quellcode:

var i: Integer;

procedure TForm1.Ontimer(Sender: TObject); 
begin  
  if i mod 10 = 0 then
  begin
    // was machen
  end;
                    
    ProgressBar1.StepIt; 
    ProgressBar1.Update; 
end;