Suspend/resume thread

Posted in Application

To set thread in suspend/resume status, use Suspend/Resume property of TThread type.

 

<pre>
type
  TTestThread = class(TThread)
  private
    j: Integer;
  protected
    procedure GetInfo;
    procedure Execute; override;  
  end;
...
var
  NewThread: TTestThread;
...

procedure TForm1.Button2Click(Sender: TObject);
begin
  NewThread.Resume;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  NewThread.Suspend;
end;
</pre>