刚刚完成的一个小程序是分析使用竖向排列的24针打印头打印一个数据文件，分析每根针的出针次数等一些参数，给机械开发部门做寿命分析等等。
由于数据文件可能很大，分析时间会比较长，因此要能够显示分析进度，否则让比人以为程序死掉了那不是人生一大憾事。
因此，分析工作放在子线程中进行，通过产生“状态改变事件”和“分析结束事件”来通知主线程更新状态。线程定义如下：
//==================================
// MyThread.pas
//===================================//
TStatusChangedEvent = procedure (Percent: Integer) of Object; //状态改变事件
TFinishedEvent = procedure of Object; // 分析结束事件
TMyThread = class(TThread)
Private
FOnStatusChanged: TStatusChangedEvent;
FOnFinished: TFinishedEvent;
protected
procedure Execute; override;
public
OnStatusChanged: TStatusChangedEvent read FOnStatusChanged write FOnStatusChanged;
OnFinished: TFinishedEvent read FOnFinished write FOnFinished;
end;
procedure TMyThread.Execute;
var
Percent: Integer;
begin
...
if (Percent 发生了改变) and Assigned(FOnStatusChanged) then
FOnStatusChanged (Percent);
...
// 分析结束
if Assigned (FOnFinished) then
FOnFinished; // 在分析结束时通知主线程
end;
状态显示由一个窗体实现，该窗体有一个进度条，一个状态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;
end;
procedure TFrmStatus. SetPercent(Value: Integer); // 设置百分比进度
begin
// 设置控件状态以表示当前的百分比进度
end;
procedure TFrmStatus.SetTerminate(Value: boolean;) // 设置结束状态
begin
if FTerminate <> Value then
begin
FTerminate := Value;
Timer1.Interval := 2;
Timer1.Enable := true;
end;
end;
procedure TFrmStatus.Timer1Timer(Sender: TObject); // 响应定时器，关闭窗口，返回mrOk
begin
Close;
ModalResult := mrOk;
end;
//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
主窗体负责创建分析线程和状态显示窗体，并响应分析线程产生的“状态改变事件”和“分析结束事件”。
// 主窗体
TFrmMain := class(TForm)
private
FFrmStatus: TFrmStatus;
procedure DoStatusChange(Percent: Integer); // 响应分析进度改变事件
procedure DoFinished; // 响应分析结束事件
public
procedure Do;
end;
// 运行分析
procedure TFrmMain.Do;
var
MyThread: TMyThread;
FrmStatus: TFrmStatus;
begin
try
MyThread := TMyThread.Create(true);
MyThread.OnStatusChange := DoStatusChange;
MyThread.OnFinished := DoFinished;
try
FrmStatus := TFrmStatus.Create(nil);
FFrmStatus := FrmStatus;
MyThread.Resume; // 启动线程
if FrmStatus.ShowModal = mrOk then
ShowAnalyseResult; // 显示分析结果
finally
FFrmStatus := nil;
FrmStatus.Free;
end;
finally
MyThread.FreeOnTerminate := true;
MyThread.Terminate;
end;
end;
// 响应状态改变事件，显示进度
procedure TFrmMain.DoStatusChange(Percent: Integer)
begin
if FFrmStatus <> nil then
FFrmStatus.Percent := Percent;
end;
