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

Coordinator

在跳出的窗体上有下面的过程
procedure TJSGL_FORM.SetParamValue(SValue: String; MValue:string);
var
  XMBH, XMMC: TBizParam;
  lBizURL,mBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  mBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(Context);
  try
    lBizURL.URL := 'Biz:\SJZPXZXXTGLXXXT\YWCSZ.ParamGroup\XMBH.Param';
    mBizURL.URL := 'Biz:\SJZPXZXXTGLXXXT\YWCSZ.ParamGroup\XMMC.Param';
    XMBH := lContextCurrent.GetParam(lBizURL);
    XMMC := lContextCurrent.GetParam(mBizURL);
    XMBH.Value := SValue;
    XMMC.Value := MValue;
  finally
    lBizURL.Free;
    mBizURL.Free;
  end;
end;

在流程的那个窗体上有下面的函数
function TMAINFORM.GetXMBHvalue: String;
var
  XMBH: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(self.Context);
  try
    lBizURL.URL := 'Biz:\SJZPXZXXTGLXXXT\YWCSZ.ParamGroup\XMBH.Param';
    XMBH := lContextCurrent.GetParam(lBizURL);
    Result := Variants.vartostr(XMBH.Value);
  finally
    lBizURL.Free;
  end;
end;

function TMAINFORM.GetXMMCvalue: String;
var
  xmmc: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(self.Context);
  try
    lBizURL.URL := 'Biz:\SJZPXZXXTGLXXXT\YWCSZ.ParamGroup\XMMC.Param';
    xmmc := lContextCurrent.GetParam(lBizURL);
    Result := Variants.vartostr(xmmc.Value);
  finally
    lBizURL.Free;
  end;
end;

但是却获取不了值。。。  跟现在这种作法或重载有关系吗？

alang

参数的隔离级怎么定义的，一般来说你这样的用法要定义隔离级为全局或者人员了

Coordinator

隔离级一直是默认的 没改过

alang

你改成 全局或者人员 试试

Coordinator

恩 这个问题解决了

还是49楼和50楼的问题
MainForm 可以打开ShowForm, 让ShowForm的parent为一个Tab页
现在问题是打开showForm的方法是
  SUrl := 'Biz:\SJZPXZXXTGLXXXT\JSFASHGL_FUNC.FUNC';
    lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context, '', SUrl, '', nil, False);
如何指定ShowForm的Panrent阿？
lFunc.MainForm.Parent := TabSheet;   会出错
如果在ShowForm上接收MainForm上的值 一定要引用MainForm，可是MainForm已经引用了ShowForm  就循环引用了
请帮帮忙吧。。。

alang

你看看50楼

Coordinator

看过了 好像不太管用 会报错
SUrl := 'Biz:\SJZPXZXXTGLXXXT\JSFASHGL_FUNC.FUNC';
lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context, '', SUrl, '', nil, False);
lFunc.MainForm.Parent := TitlePanel;  这个报错

alang

楼主报什么错误，我这里同样的代码测试没有报错
只是在工作台上多显示了一页，但是不影响程序的运行

Coordinator

在跳出的功能上有下面的代码
unit JSFASHGL_FUNC;

interface

uses
  Business.System, Business.Model, Business.Forms, SystemCore;

type
  TJSFASHGL_FUNC = class(TFunc)
  private
    {private declarations}
  public
    {public declarations}
    procedure DoRun; override;
  end;

implementation


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

end.

错误是下图

Coordinator

如果去那些代码
流程上又出错。。。