delphi多线程：主线程如何传递变量参数给子线程

[kendychong]

//线程
type
TestThread = class(TThread)
protected
procedure Execute; override;
end;

var
s_TestThread: TestThread;

//鼠标单击
procedure TForm1.Button2Click(Sender: TObject);
var
id:integer;
begin
//下面是创建线程，请问如何把ID传给子线程？
s_TestThread:=TestThread.Create();
end;

我想到过用在定义时加上Create(ID:integer)，但那样做好像行不通，请大侠们指点一二，谢谢谢！

[lake_cx]

想怎么传怎么传，参数、属性、全局变量都可以，你自己心里有数是线程安全的就行了

[kendychong]

楼上的大侠，参数、属性怎么做？我是新手，请指教；全局变量，我会，但是不安全。

[僵哥]

构造函数Create，添加一个参数

[kendychong]

是这样吗？

public
constructor Create(ID:integer);
end;

然后

Constructor SendUDP.Create(ID:integer);
begin
FreeOnTerminate:=True;
//接下来怎么用呢？
inherited Create(); //这句要不要加什么？
end;

procedure SendUDP.Execute();
begin
//这里怎么用到ID？？
end

[喝口水]

type
TestThread = class(TThread)
protected
procedure Execute; override;
Public
constructor Create(id:integer);
end;

[kendychong]

前面用Private 定义一个私有变量，Create时给他赋值，可以吗？

[kendychong]

搞定，我会用了！谢谢大家现在派分

[abcde090909]

gooD!!!!