在ShowModal的窗体里如何走流程**

alang

在功能上重载?

Coordinator

lisb 告诉我的阿
public
  procedure DoRun; override;

procedure TJSFASHGL_FUNC.DoRun;
var
  lMAINFORM: TMAINFORM;
begin
  lMAINFORM := TMAINFORM.Create(context);
  try
    lMAINFORM.ShowModal;
  finally
    lMAINFORM.Free;
  end;
end;

然后再

SUrl := 'Biz:\SJZPXZXXTGLXXXT\JSFASHGL_FUNC.FUNC';
lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context, '', SUrl, '', nil, False);

才能使用流程的标准动作

alang

标准动作跟这个没有关系

Coordinator

不是吧 如果不用上面的代码 在showmodal 的窗体里 标准动作不能使用的

alang

42楼是因为你运行功能，才会启动流程
如果你只是创建功能中的窗体，那么这个功能没有启动，当然就不会启动流程了

alang

只要有流程的地方就都可以执行 35楼给的方法

Coordinator

我也糊涂了 35楼的方法
在[B]不是[/SIZE][/B]用
SUrl := 'Biz:\SJZPXZXXTGLXXXT\JSFASHGL_FUNC.FUNC';
lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context, '', SUrl, '', nil, False);
这个方法打开的功能里也能流转？？？

alang

功能当然要run起来才可以流转了
35楼的方法也是肯定在功能中使用的

Coordinator

恩 明白了
打开窗体用 42楼的方法
配合 35楼的方法 启动和流转 流程
这样就可以了。。。

还有个小问题
SUrl := 'Biz:\SJZPXZXXTGLXXXT\JSFASHGL_FUNC.FUNC';
lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context, '', SUrl, '', nil, False)
这个代码如何写才能把这个窗体嵌在一个tab页里 像下面的代码生成的窗体那样：
EditForm := CQJGGL_FUNC.TMAINFORM.Create(Self.Context);
EditForm.Parent := TabSheet;
EditForm.Show;

alang

你可以在功能或者功能窗体上定义一个函数，然后在运行功能的地方调用这个函数，传递参数过去，然后被调用的功能或者功能窗体上设置窗体的parent属性等于传递过来的参数