求助：通过线程显示一个子窗口，关闭子窗口后无法返回到主窗体。

Question

线程代码如下：
procedure AccessLog(P:Pointer);stdcall;
var
  iPos : Integer;
  LogFile : TextFile;
  FileName, LogInfo, LogTime, NowTime, ServiceName : String;
begin
  While(true)
    begin
      NowTime := FormatDateTime(Now());
     frmWarning.SetWarnInfo(NowTime);
      frmWarning.ShowModal;
      Sleep(300*1000);     <---加上这一句后就无法返回了，不加就OK。
    end;
end;我在frmWarning这个窗口的ONSHOW事件里加上了如下代码来强制显示在最上层。
procedure TfrmWarning.FormShow(Sender: TObject);
begin
  SetWindowPos(frmWarning.Handle,Hwnd_Topmost,0,0,0,0,
        (SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE));
end;在线等啊。

Answer 1

不是无法返回吧，好像是返回后开始sleep吧。

Answer 2

DELPHI多线程就有这个毛病，时间久了，去动别的程序后，多线程程序就消失了