请问退出客户端时总出错，是什么原因？**

danielduan123

原来是正常的，后来不知为什么，退出客户端，总出错如图，该如何办呢？

alang

http://bbs.justep.com/forum.php? ... 3%B1%D8%D0%EB%D4%DA

danielduan123

我是这样的，一个主窗体，bt_workClick弹出功作的窗体，TZBB_new.bt_logoutClick，关闭主窗体。tWeekDutyWindow.free写在哪儿好些？我都更乐意写在logoutClick内，不过这就要把它设为成员变量，对吧。若有wi
另外我想把tWeekDutyWindow弹出在主窗体内部，代码是怎么样的？

procedure TZBB_new.bt_logoutClick(Sender: TObject);
const
  csLogoutConfirmStr = 'È·¶¨ÒªÏ°àÂð£¿Çë¼ÇµÃ±£´æÈÕÖ¾£¡';
begin
  if JsDialogs.ConfirmBox(csLogoutConfirmStr, 'È·¶¨', 2) then
    begin
    label11.Caption:=CalcuLogoutStatus;//'Ï°à';
     end;
   bt_login.Enabled:=false;

   Self.Close;//（我想是这儿错了，关闭前要 tWeekDutyWindow.free）
end;

procedure TZBB_new.bt_workClick(Sender: TObject);
var
   tWeekDutyWindow:TMZXJGZ;//¶þ¼¶ÍøÿÖÜѲ¼ì¹¤×÷´°Ìå
begin

  tWeekDutyWindow:=TMZXJGZ.Create(Self.Context);
  tWeekDutyWindow.ShowModal; //在这儿写try..free?
end;

alang

tWeekDutyWindow:=TMZXJGZ.Create(Self.Context);
  tWeekDutyWindow.ShowModal; //在这儿写try..free?
对这里free调tWeekDutyWindow 看看

danielduan123

正常了，但是新窗体弹出在主窗体内部是如何写的呢？因为在客户端运行，不小心最小化新窗体，就再找不出它在哪儿了，便出了无法关主窗体的问题。

alang

设置窗体的Parent就可以了