比较弱的问题，如何同时创建一个线程类的几个实例，此线程会访问窗体组件

Question

例程大概如下：procedure TSeekMail1.Execute;
begin
EdtNum.Text := IntToStr(StrToInt(EdtNum.Text) - 1); 
MainForm.WebBrowser.Navigate('www.csdn.net');
end;我同时创建此线程类的几个实例，如何解决？没有找到相关资料，所以求助？

Answer 1

多Create几个TSeekMail1的实例不就可以了，Create时指明是否立即执行。
几个线程在运行时要注意对主窗口控件调用的同步问题，用Synchronize方法解决

Answer 2

同时创建多个线程实例是没问题的，但一定要注意线程安全问题，可以用Synchronize方法解决，也可以定义一个消息，由线程发送消息给主窗体，主窗体处理。

Answer 3

线程和其他的类差不多用法，想要多创建几个实例，就多调用几个Create，但是你的
EdtNum.Text := IntToStr(StrToInt(EdtNum.Text) - 1); 
是肯定不行的，操作VCL的话，要写到一个函数里面用Synchronize来调用