【结帖】ShowModal窗体**

jianth2005

http://bbs.justep.com/forum.php?mod=viewthread&tid=26786
这是我同事的一张帖子
我要实现的需求是跟它一样的,他没实现得
我的做法是新建个无窗体的功能
在FuncCreate上执行SYSTEMCORE.TSystemCore.FuncManager.RunFunc(Context,'','Biz:\SQWSFWGLXT_X_\GRJKDAGN.FUNC','', nil,True);  
第一次运行协同系统就可以弹出窗体,但点第二次的时候就不能弹出.不知道如何实现这需求.

上面连接2楼的"重写dorun函数"请问怎么写?
而这个procedure TshowGN.DoRun;写在哪?

jiahaiming

写在功能的代码里（注意不是窗体）
1、双击studio业务对象树的功能
2、在打开的功能设计器里，点鼠标右键，选择查看代码
3、在打开的代码设计器里编写代码dorun

jiahaiming

楼主也可以用dorun作为关键字在论坛搜索一下相关资料，或者查看用户手册业务功能部分。都有对dorun的介绍。

jianth2005

做好了.感谢指点.揭贴.