TThread類之總結

TThread 用于在进程中创建多线程. 是抽象类.

線程的要點: Priority , MaxThread_OneCPU =16;同步.

 属性:

 1 FreeOnTerminate: Boolean;

 2. Handle

 3. Priority:

 4. ReturnValue

 5. Suspended

 6. Terminated

 7. ThreadID

方法:

 1.constructor Create(CreateSuspended: Boolean);

 3. procedure Execute;

 4. procedure Resume;

 5. procedure Suspend;

 6. procedure Synchronize(Method: TThreadMethod);

 7. function WaitFor: LongWord;

 

示例代碼如下:

 type TMyThread = class (TThread) public procedure Execute;override; end;var Form4: TForm4; myth1 : TMyThread;implementation{$R *.dfm}procedure TMythread.Execute;var i : Integer;begin Randomize; for i := 0 to 1000 do begin form4.mmo1.Text := Form4.mmo1.Text + chr(65 + Random(26)); Application.ProcessMessages; // 防止進程阻塞,使程序響應消息隊列中的其它事件 Sleep(200); // 休眠 0.2s end; end;procedure TForm4.btnCreateClick(Sender: TObject);begin if myth1 = nil then begin myth1 := TMyThread.Create(True); // Create and Suspend Thread myth1.FreeOnTerminate := True; myth1.Priority := tpLower; // 修改线程级别为低; 默认值是 tpNormal end;end;procedure TForm4.btnSuspendClick(Sender: TObject);begin if myth1<> nil then if not myth1.Suspended then myth1.Suspend;end;procedure TForm4.btnResumeClick(Sender: TObject);begin if myth1<> nil then if myth1.Suspended then myth1.Resume;end;procedure TForm4.btnFreeClick(Sender: TObject);begin if myth1 <> nil then if myth1.FreeOnTerminate then myth1.Free; // 一般不這樣直接 Free , 代替的是設置: FreeOnTerminate := true;end;