在BCB中使用多线程实例

多线程编程是提高系统资源利用率的一种常见方式。它占用的资源更小，启动更快，还可以实现在后台运行一些需时较长的操作。
一、初识TThread对象

VCL提供了用于多线程编程的TThread类，在这个类中封装了Windows关于线程机制的Windows API，通常将它的实例成为线程对象。线程对象通过封装简化了多线程应用程序的编写。注意，线程对象不允许控制线程堆栈的大小或安全属性。若需要控制这 些，必须使用Windows API的CreateThread()或BeginThread()函数。不过，即使是使用Windows Thread API函数建立和控制多线程，仍然可从一些同步线程对象或下节将要描述的方法中受益。

要在应用程序中使用线程对象，必须创建TThread的一个派生类。File|New|Thread Object，系统会提示为新线程对象提供类名，我们将其命名为TMyThread。我们必须自行在构造函数以及Execute()函数中添加代码。自动 生成的构造函数中有一个参数，如果为true的话线程创建后将进入挂起状态，直到线程对象的Resume()函数被调用才开始执行。如果为false则线 程创建后会立刻开始执行。

我们先创建一个实例来亲自感受下多线程：在窗体上放两个Button和两个Edit组件，自动命名。然后File|New|Thread Object来创建一个线程对象，命名为TMyThread。

以下请看完整工程代码：
//Unit1.h        //主窗体头文件

//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "Unit2.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
TButton *Button1;
TButton *Button2;
TEdit *Edit1;
TEdit *Edit2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
TMyThread *thread1,*thread2;
public:        // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------