【搞定】传值的问题**

buckking

我这里利用设窗体数据属性来传值，本来是用lDetailForm.ShowModal来调用窗体，现在想换为功能调用，可是这样了话，窗体间的传值就不行了 ，数据属性会成为空对象，有没有两全其美的方法？

buckking

现在想改用业务参数来做了，但是 lParam.Value:=Edit1.Text;{值赋不进去}，用单步跟踪来看会看到如图：

procedure TACSCZCT.Button1Click(Sender: TObject);
var
  lParam: TBizParam;
  lContextCurrent: TContextCurrent;
  lBizUrl: TBizURL;
  TESTURL:string;
  FUNCURL:string;
begin
   TESTURL:='Biz:STUDYSPACEHYYWCSZ.ParamGroupCSCS.Param';
   //预打开功能URL
   FUNCURL:='Biz:STUDYSPACEHYBCSCZGN.Func';
   lContextCurrent := TContextCurrent.Create(self.Context);
   lBizUrl := TBizURL.Create;
   try
      lBizUrl.URL:=TESTURL;
      lParam := lContextCurrent.GetParam(lBizUrl);
      lParam.Value:=Edit1.Text;{值赋不进去}
   //打开功能
      Systemcore.TSystemCore.FuncManager.RunFunc(Context, '', FUNCURL, '', nil, False);
   finally
     lBizUrl.Free;
     lContextCurrent.Free;
   end;

end;

buckking

原来是隔离级没有设置，晕阿

lisb

可以用参数，参数的隔离级设置成岗位，另外调用RunFunc函数的时候就可以传一个参数过去，我做了个例子，可以参考一下

buckking

好的，结帖吧