起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 156|回复: 4

【结贴】怎样在信息集中关闭功能窗体??报错了!!1**

[复制链接]
发表于 2009-6-25 09:44:06 | 显示全部楼层 |阅读模式
我想在信息集中通过条件判断来关闭功能窗体?请问代码应该怎么写??
回复

使用道具 举报

发表于 2009-6-25 09:56:00 | 显示全部楼层
var
  lFunc: TFunc;
  lContext: TContext;
begin
  lContext := Context.FindParentContext(BizSys.IL_Func);
  if Assigned(lContext) then
    begin
      lFunc := lContext.Owner as TFunc;
      lFunc.Terminate;
    end;
end;
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-6-25 10:07:17 | 显示全部楼层
我是在信息集下的newrecord下写这段代码的,报错如下:
我要怎么修改呢??

aa.gif

7.55 KB, 下载次数: 84

回复 支持 反对

使用道具 举报

发表于 2009-6-25 10:41:03 | 显示全部楼层
2楼代码在窗体打开前不要执行这个。window不允许。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-6-25 11:20:16 | 显示全部楼层
谢谢!结贴
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-19 19:24 , Processed in 0.042920 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表