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

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;

// 响应状态改变事件，显示进度