TTestThread = class(TThread)
  public
    Value : Longint;
    procedure Execute; override;
  end;

  TThreadForm = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Thread : TTestThread;
  end;


procedure TTestThread.Execute;
begin
  while not Terminated do Value := Value + 1;
end;

procedure TThreadForm.FormShow(Sender: TObject);
begin
  ProgressBar1.Max := High(Longint) div 2;
  Thread := TTestThread.Create(False);
end;

procedure TThreadForm.Timer1Timer(Sender: TObject);
begin
  if Thread.Value > ProgressBar1.Max then
  begin
    Thread.suspend;
    Thread.Value := 0;
    Thread.Resume;
  end;

  ProgressBar1.Position := Thread.Value;
end;

Posted via ActualForum NNTP Server 1.5

procedure TTestThread.Execute;
begin
   while not Terminated do
   begin
     Inc(Value);
   end;
end;

procedure TThreadForm.Timer1Timer(Sender: TObject);
begin
   ProgressBar1.Position := Thread.Value mod ProgressBar1.Max;
end;

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5