//.cpp中的线程描述 _fastcall TMyThread::TMyThread(void):TThread(true) { FreeOnTerminate=true; Resume(); } //声明线程 void __fastcall TMyThread::Execute()//线程功能 { for(int i=1;i<4;i++) Form1->Memo1->Text=Form1->Memo1->Text+IntToStr(i)+"我得到了参数--我的线程/r/n"; } void __fastcall TForm1::Button2Click(TObject *Sender)//执行线程 { MyThread=new TMyThread(); MyThread->FreeOnTerminate=true; } //.h中的线程类定义 //声明线程 class TMyThread:public TThread { public: __fastcall TMyThread(void); private: void __fastcall Execute(void); }; //可以在.h的窗体类定义中加入 TMyThread *MyThread;//声明一个自己的线程