delphi线程创建事例

unit Unit2;interfaceuses Classes,unit1,windows; //引用主窗口的单元type Thread_test = class(TThread) private { Private declarations } protected procedure Execute; override; end;implementation{ Thread_test }var i:Integer=1;procedure Thread_test.Execute;begin while i=1 do begin //因为I 永远＝1 所以一直不会退出 Form1.edt1.Text:=Form1.edt1.Text+'>';//改变form1 的edt1 的值 sleep(50); end;end;end. unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); //窗口打开时 private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}uses Unit2;//引用要使用到的线程单元var Test:Thread_test;//定义线程procedure TForm1.FormCreate(Sender: TObject);begin//主窗口建立时 启动线程 test:=Thread_test.Create(false);//参数 false 为建立后马上执行end;end.