DELPHI 多線程（TThread類的實現）實例

再做個實例總結下：

用多線程類實現，在三個PaintBox上畫橢圓。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TMyThread = class(TThread)
    private
    FNum:Integer;
    protected
      procedure Execute;override;
      procedure Run;
      procedure SetNum(Value:integer);  {設置Num}
      function GetNum:integer;          {獲取Num}
      constructor Create(Aswith:Boolean;ANum:Integer);  {給創建方法添加一個參數用於傳遞}
    public
  end;

  TForm1 = class(TForm)
    pb1: TPaintBox;
    pb2: TPaintBox;
    pb3: TPaintBox;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses SyncObjs;

const
   colors:array[0..2] of TColor =(clRed,clGreen,clBlue);

var
  MyThread:TMyThread;
  paintArr:array[0..2] of TPaintBox;
//  MyThreadArr:array[0..2] of TMyThread;  {也可用數組多個線程進行}
  Mutex:TMutex;


procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
begin
  if Assigned(Mutex) then Mutex.Free;   {如果存在，先釋放}
  Mutex:=TMutex.Create(False);           {創建互斥體，參數為創建者先不占用}
  Repaint;                               {重畫窗體}
  paintArr[0]:=pb1;                       {把PaintBox1給數組paintArr[0]}
  paintArr[1]:=pb2;
  paintArr[2]:=pb3;
  for i := Low(paintArr )to High(paintArr) do
  begin
    MyThread:=TMyThread.Create(False,i);  {如果聲明了線程數組類，可以在這里一起做循環多個線程操作}
  end;
end;

{ TMyThread }



constructor TMyThread.Create(ASwith: Boolean; ANum: Integer);
begin
  inherited Create(Aswith);   {繼承並傳參}
  SetNum(ANum);               {設置字段Num}
end;

procedure TMyThread.Execute;
begin
  inherited;
  FreeOnTerminate:=True;
  Run;
end;

function TMyThread.GetNum: integer;
begin
  Result:=FNum;
end;

procedure TMyThread.Run;
var
  i,n,x1,x2,y1,y2:integer;
begin
  n:=GetNum;
  paintArr[n].Color:=Colors[n];
  for i := 0 to 200 do
  begin
    if Mutex.WaitFor(INFINITE)=wrSignaled then  {判斷互斥體有沒有被占用}
    begin
      with paintArr[n] do
      begin
        x1:=Random(Width);y1:=Random(Height);
        x2:=Random(Width);y2:=Random(Height);
        Canvas.Lock;
        Canvas.Ellipse(x1,y1,x2,y2);
        Canvas.Unlock;
        Sleep(10);
      end;
    end;
    Mutex.Release;  {釋放放這里為每進行一次，釋放，誰拿到誰用}
  end;
//   Mutex.Release;  {釋放放這里為每進行一輪循環，釋放，相當於排隊進行}
end;

procedure TMyThread.SetNum(Value: integer);
begin
  FNum:=Value;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Mutex.Free;
end;

end.