2019-06-23 Delphi多线程1

　　首先当然是打开你的delphi 6 ，点取菜单栏中的文件－新建－其它，弹出一个标签窗口，选取new标签，然后找到Thread Object，就是它了，双击它就行了，弹出一个类命名窗口，输入mythread，当然名称可由你自已来定的。这时程序自动创建一个unit，我这里是unit2，现在我们来看unit，代码如下：

　　unit Unit2;

　　interface

　　uses

　　Classes;

　　type

　　mythread = class(TThread)

　　private

　　{ Private declarations }

　　protected

　　procedure Execute; override;

　　end;

　　implementation

　　{ Important: Methods and properties of objects in VCL or CLX can only be used

　　in a method called using Synchronize, for example,

　　Synchronize(UpdateCaption);

　　and UpdateCaption could look like,

　　procedure mythread.UpdateCaption;

　　begin

　　Form1.Caption := 'Updated in a thread';

end; }

　　{ mythread }

　　procedure mythread.Execute;

　　begin

　　{ Place thread code here }

　　end;

　　end.

　　其中，你注意找到procedure mythread.execute;，应找到了吧，连我都看到了，这就是你刚才建立的线程了，那么接下来，我们要做的就是加入后台执行的代码，代码要加在那里？不会吧，当然是加在

　　begin

　　//这里就是加入程序代码的地方了

　　end;

//implementation后面的uses 添加 

如果你要调用unit1上的控件，你可以在unit2上面的implementation后面的uses 添加 中加入  uses unit1; 就行了，记住，在unit1里的implementation后面增加uses unit2，这样你就可在unit1中引用线程了，引用的方法很简单，就是，就是，就是，好啦，不卖关了，就是 

procedure TForm1.Button1Click(Sender: TObject);

begin

  mythread.Create(false);   

end;

OK 这就是delphi中的线程，呵呵。

多线程中MEMO 组件的窗体是不能隐藏不可见的，那样会造成错误，必须可视。

--------------------------------------------------------------------------------------------------------------------------