一個TThread類多線程執行個體

表單單元：unit main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,myThread, StdCtrls;typeTForm1 = class(TForm)    Label1: TLabel;    Button1: TButton;    Button2: TButton;    Button3: TButton;    Label2: TLabel;    Label3: TLabel;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure FormCreate(Sender: TObject);private    procedure TThreadFinsh(Sender:TObject);public    { Public declarations }end;varForm1: TForm1;t1,t2,t3:TThread;implementation{$R *.dfm}procedure TForm1.TThreadFinsh(Sender:TObject);beginShowMessage('一個線程完畢。');end; procedure TForm1.Button1Click(Sender: TObject);beginif Button1.Caption='開始1' thenbeginButton1.Caption:='關閉';t1.Resume;endelsebeginButton1.Caption:='開始1';t1.Suspend;end;    end;procedure TForm1.Button2Click(Sender: TObject);beginif Button2.Caption='開始2' thenbeginButton2.Caption:='關閉';t2.Resume;endelsebeginButton2.Caption:='開始2';t2.Suspend;end;end;procedure TForm1.Button3Click(Sender: TObject);beginif Button3.Caption='開始3' thenbeginButton3.Caption:='關閉';t3.Resume;endelsebeginButton3.Caption:='開始3';t3.Suspend;end;end;procedure TForm1.FormCreate(Sender: TObject);begint1:=TmyThread1.Create(Label1,10);t1.OnTerminate:=TThreadFinsh;t2:=TmyThread2.Create(Label2,20);t2.OnTerminate:=TThreadFinsh;t3:=TmyThread3.Create(Label3,30);t3.OnTerminate:=TThreadFinsh;end;end.線程單元：unit myThread;interfaceusesClasses,Windows,SysUtils,Forms,StdCtrls;typeTTestThread = class(TThread)private    FLabel:TLabel;    FSleepDec:Integer;protected    procedure Execute; override;public    constructor Create(lbl:TLabel;sleepSec:Integer);end;TmyThread1=class(TTestThread) end;TmyThread2=class(TTestThread) end;TmyThread3=class(TTestThread) end;implementationuses main;{ TTestThread }constructor TTestThread.Create(lbl:TLabel;sleepSec:Integer); //參數傳遞beginFLabel:=lbl;FSleepDec:=sleepSec;FreeOnTerminate:=True; //讓線程終止是觸發OnTerminate事件inherited Create(True);//不立即執行，只有調用resume才開始end;procedure TTestThread.Execute;vari:Integer;beginfor i:=0 to 1000 dobeginif terminated then Break;FLabel.Caption:=IntToStr(i);Sleep(FSleepDec);end;end;end.