写了个注销代码的方法但注销后进入主界面报错，但点击确定后可正常使用。

lixinghua

报的错是：
abstract error.
或者：


代码如下：请高手帮看看

procedure TCT_DDZB.logout;
var
  mainform,lNewMainForm: TForm;
  FClosing    :boolean;
begin
    mainform := TInit.InitInstance.MainForm;
    FClosing := True;
    try
      FClosing := TSystemCore.FuncManager.TerminateAllFuncs(True);
    except
      FClosing := False;
      raise;
    end;
    mainform.Hide;

    mainform.Enabled := False; // 很重要，不然登录对话框得不到焦点

    TInit.LogoffByUser;
    if TInit.InitInstance.Terminated then
      Exit;

    { TODO: 注销机制需要再做思考，目前会多次运行功能，IE下面的表现效果也需要重点考虑 }
    lNewMainForm := TInit.InitInstance.MainForm;
    if lNewMainForm <> nil then
    begin

      if mainform.Parent = nil then
        lNewMainForm.ParentWindow := mainform.ParentWindow
      else
        lNewMainForm.Parent := mainform.Parent;
      lNewMainForm.BorderStyle := mainform.BorderStyle;

      lNewMainForm.Show;
      Borland.Delphi.Windows.PostMessage(lNewMainForm.Handle, Borland.Delphi.Messages.WM_ACTIVATE, 1, 0);
    end;
    mainform.Release;
end;

lixinghua

顺便问下有没有那位实现了注销又没报错的？分享下啊

jiahaiming

楼主，不要在你在窗体里作注销了。
用业务消息来实现吧。

lixinghua

我用了，不符合需求啊。用消息调用的话还要提问时不是要“注销”还要点确定才行。

jiahaiming

楼主，你可以改造注销的代码啊！

lixinghua

我们不想在进行“注消”确认了，且还是会报同样的错！

jiahaiming

最初由 lixinghua 发布
[B]我们不想在进行“注消”确认了，且还是会报同样的错！ [/B]

不明白楼主的意思：
1、把代码里确认的部分注释掉了？
2、用消息方式调用主窗体的注销动作还报错？

lixinghua

1、没把确认部分注释掉。
2、是用消息方式调用主窗体的注销动作还是报错。
直接点击主窗体的注销按钮注销就不会报错

jiahaiming

找到原因了，在注销时，系统会关闭所有功能，但是由于消息处理器的Excecute方法还没有执行完，导致发送消息的方法没有执行完，导致最终出指针错误。
楼主可以在主界面放一个timer控件，在OnTimer事件中执行注销。同时把timer的enable属性设置为false
消息处理器的Execute事件中，紧紧把timer的Enable设置为true就可以了。