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