【结贴】打开同一功能出现问题**

fpj

版本 2260

自己新建的界面方案

继承的系统空间下的专业窗体,

通过该界面方案,打某一个功能,然后关闭,再打开同一功能出错.

报地址错误如图所示.

程序定位到父窗体<专业>下

if lOldShowing <> nil then lOldShowing.Hide;

zfang

是在
if lOldShowing <> nil then 这句报的还是
lOldShowing.Hide;这句报的？

atiger

请问
1、你是怎么打开一个功能的？如果有代码，把代码贴出来看看
2、如果关闭的？是点击X，还是通过代码？如果有代码把代码贴出来看看

fpj

界面上放一按钮 单击事件
procedure TMainForm.SpeedButton4Click(Sender: TObject);
begin
  RunApproveFun('Biz:\SPC_SUPERVISE\FUN_COURSE.Func');
end;

procedure TMainForm.RunApproveFun(AFunFileName: String);
begin
  if isValidFun(AFunFileName) then
    SystemCore.TSystemCore.FuncManager.RunFunc(AFunFileName, '')
  else
    JsDialogs.ShowMsg('您没有执行此功能的权限，请与系统管理员联系!','提示') ;
end;

fpj

lOldShowing.Hide;这句报的

我是直接右键关闭

fpj

自已顶一下.

出现该问题多是什么原因造成的.

zfang

lOldShowing.Hide;这句改成lOldShowing.Free;看看。

fpj

还是出现同样的错误

fpj

自己再顶一下.

fpj

还没有回复的.