如何显示子线程的当前状态

状态显示由一个窗体实现，该窗体有一个进度条，一个状态Label，一个取消按钮，以及一个定时器。定义如下（没有给出进度条、Label、按钮的代码）

//=====================================

// TFrmStatus.pas

//=====================================//

TFrmStatus = class (TForm) // 显示进度的窗体

Timer1: TTimer;

Procedure FormCreate (Sender: TObject);

Private

Procedure SetPercent (Value: Integer);

Procedure SetTerminate (Value: Boolean);

Public

Property Percent: Integer read FPercent write SetPercent;

Property Terminate: Boolean read FTerminate write SetTerminate;

End;

Procedure TFrmStatus. FormCreate (Sender: TObject);

begin

FTerminate := false;

Timer1.enable := false;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!