delphi7 TThread.Suspended的用法 写完整的例子

Delphi 7中的`TThread.Suspended`属性是一个布尔型变量，用于控制线程是否暂停执行。当它的值为`True`时，线程会进入睡眠状态，不会继续执行其`OnExecute`事件中的代码；如果为`False`，线程则开始运行。

下面是一个简单的`TThread`使用示例，展示了如何创建、启动和暂停线程：

uses
  System.Threading;

type
  // 定义一个简单的自定义任务
  TForm1 = class(TForm)
    ButtonStart: TButton;
    ButtonPauseResume: TButton;
    MemoLog: TMemo;
    procedure ButtonStartClick(Sender: TObject);
    procedure ButtonPauseResumeClick(Sender: TObject);
  private
    MyThread: TThread;
  public
    { Form 转型字段 }
  end;

var
  Form1: TForm1;

implementation

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
  // 创建一个新的线程并指定执行的任务
  MyThread := TThread.Create(True, 'MyThread', Self.ThreadProcedure, nil);

  // 启动线程
  MyThread.Resume; // 这里设置Suspended为False，让线程开始执行
end;

procedure TForm1.ButtonPauseResumeClick(Sender: TObject);
begin
  if MyThread.Suspended then
  begin
    // 如果线程已暂停，唤醒它
    MyThread.Resume;
    MemoLog.Lines.Add('Thread resumed');
  else
  begin
    // 如果线程正在运行，暂停它
    MyThread.Suspend;
    MemoLog.Lines.Add('Thread suspended');
  end;
end;

// 自定义线程执行的任务
procedure TForm1.ThreadProcedure(AParams: Pointer);
begin
  try
    while not Terminated do
    begin
      // 在这里添加线程的实际任务，例如循环打印日志
      MemoLog.Lines.Add('Running task...');
      Sleep(500); // 模拟耗时操作
    end;
  except
    on E: Exception do
      MemoLog.Lines.Add('Thread error: ' + E.Message);
  finally
    Free; // 线程完成时释放资源
  end;
end;

{ TForm1 的其他代码 }

end.

在这个例子中，`ButtonStartClick`触发了线程的创建和启动，而`ButtonPauseResumeClick`用于切换线程的暂停和运行状态。`ThreadProcedure`是线程实际执行的代码，模拟了一个持续运行的小任务，并在`MemoLog`上显示线程的状态变化。