【搞定】在ShowModal的窗体里如何走流程问题 二度询问**

Coordinator

好 的  谢谢  发给我吧 改了哪了

Coordinator

哦 好 我先试一下 谢谢

Coordinator

现在的代码是

else if TreeView1.Selected.Text = '方案审核管理' then
  begin
    if not Assigned(EditForm) then
    begin
      if DB1_FASHGL.DataSet.FieldByName('TRJS_LZZT').AsInteger = 0 then
      begin
         //ShowTab;
         SUrl := 'Biz:\SJZPXZXXTGLXXXT\JSFASHGL_FUNC.FUNC';
         lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent, '', SUrl, '', nil, False);
         lFunc1 := lFunc;
      //lFunc.MainForm.Parent := TabSheet;
      end
      else
        Forms.Application.MessageBox('方案审核已经提交！', '注意',
          Borland.Delphi.Windows.MB_ICONINFORMATION + Borland.Delphi.Windows.MB_OK);
      //lFunc.MainForm.Parent := TabSheet;
    end;

如果用  红字部分 报错
不用 打开不了第二次

Coordinator

能打开第二次了 就 是不 能用上面红色的部分
但是 窗体依然没有嵌入到自制的主窗体上

zfang

具体我没试
但是楼主，请注意
你其他的功能都是通过竞赛管理这个功能调用其他功能的功能窗体，然后嵌入到那个panel中的，而对方案审核管理，你是用了runfunc，是运行了一个功能，所以，平台默认会在工作台中启动这个功能（也就是你说得不能嵌入，而仅仅嵌入了窗体。其实这里也就是在工作台中多了个一个方案审核管理功能而已）。所以才有18楼所说
No.18  
为什么非要这样用啊？
这还不如自己写个主界面呢！

Coordinator

有别的方法让他嵌入进去吗？

Coordinator

试了
现在这样不嵌入的话就又有问题了：
流转完后 点击就会报错 因为关闭窗体时 用的是close 不是SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc1, False);
所以 再打开窗体时会报错

zfang

那你把这个close屏蔽掉试试看吧（这样的话，流转数据后还运行着方案审核管理，可以继续进行流转）

Coordinator

终于解决了 谢谢各位了
可以结贴了