邮件关闭错误**

rzport_gongyu

打开一个邮件 只要点一下内容区域 ，然后双击关闭功能窗体，就报下面的错 ，然后就卡住不动了 只能结束任务了。

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=25747
看看是否跟上面的帖子类似。

rzport_gongyu

按照那个方法编译报错呀 怎么改的 是直接在下面加上这段马
constructor Create(AContext: TContext);
      destructor Destroy; override;//增加的声明
      destructor TMailViewer.Destroy;
      begin
           FViewer.Free;
           inherited Destroy;
      end;

zfang

.....看那注释说明
声明处加下面代码
destructor Destroy; override;//增加的声明

实现处加下面代码
destructor TMailViewer.Destroy;
      begin
           FViewer.Free;
           inherited Destroy;
      end;

rzport_gongyu

我不知道哪里是声明处 哪里实现出

zfang

哥们，看下面的步骤
1、找到它：业务模型\协同系统\个人事务\邮件库
2、找到它：
  TMailViewer = class(TWinControl)
3、找到它：    constructor Create(AContext: TContext);
4、在3的代码处加个回车，然后增加下面的代码
    destructor Destroy; override;//增加的声明
5、在代码实现部分（就是写方法的实现）找到它： constructor  TMailViewer.Create(AContext: TContext);
然后加回车，加Destroy的实现代码，如下（拷贝粘贴）：
destructor TMailViewer.Destroy;
begin
  FViewer.Free;
  inherited Destroy;
end;
6、编译，签入，重新运行后看看是否还有错误。

rzport_gongyu

可以了 constructor   destructor 是什么东西 没见过

zfang

www.baidu.com
输入delphi constructor  或者 delphi destructor  搜索一下。