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

核心提示：如何显示子线程的当前状态 刚刚完成的一个小程序是分析使用竖向排列的24针打印头打印一个数据文件，分析每根针的出针次数等一些参数，如何显示子线程的当前状态，给机械开发部门做寿命分析等等， 由于数据文件可能很大，返回mrOkbegin Close; ModalResult := mrOk;end;//>&g

　如何显示子线程的当前状态   　　　 刚刚完成的一个小程序是分析使用竖向排列的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;