【结帖】怎样代码关闭功能窗体**

senda · 发表于 2008-5-15 09:19:04

var
lFunc: TFunc;
begin
lFunc := SystemCore.TSystemCore.FuncManager.FindRunning('Biz:\JTTXM\CGGLGN.FUNC'+ '.MainForm.Run' + '|' +'');
if lFunc <> nil then
SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc, False);
end;
用这个不好使.

gaihl · 发表于 2008-5-15 09:32:39

单步调试一下,先看iFunc是否为nil,是否找到了这个窗体

senda · 发表于 2008-5-15 09:45:01

没有找到.

lixy · 发表于 2008-5-15 09:48:51

http://bbs.justep.com/forum.php?mod=viewthread&tid=22397
获得功能。
关闭功能 lFunc.Terminate

senda · 发表于 2008-5-15 10:09:24

不太明白能否给个示例?

lixy · 发表于 2008-5-15 10:17:15

4楼的链接就是例子。

zfang · 发表于 2008-5-15 11:06:30

怎么样了，楼主？

senda · 发表于 2008-5-15 11:12:16

可以了.

zfang · 发表于 2008-5-15 11:24:31

嗯，好。谢谢反馈，结贴。

		自动登录	找回密码
密码			立即注册