功能与功能之间如何调用方法？**

atiger

知道了，由于“业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体”调用的模式变了，2619是
procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);
var
  lContext: TContext;
  S, lUID: string;
  lFunc: TFunc;
begin
  lUID := AUniqueID;
  if lUID = '' then
  begin
    // 暂时一个功能只能运行一份实例, 不同参数的功能，允许多份实例
   lUID := AFuncURL + '.MainForm.Run' + '|' + AParams;
  end;
...

而3000以后的是
procedure TSTANDARDSTYLEMAINFORM.UIRunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean);
var
  lContext: TContext;
  S, lUID: string;
  lFunc: TFunc;
begin
  if Opr.IsSystemManager(TSystemCore.Operator.ID) then
  begin
    lUID := AUniqueID;
    if lUID = '' then
      lUID := TFuncManager.GetFuncUniqueID(TSystemCore.Operator.Context, AFuncURL, AParams);
...
所以方法需要修改一下
2619修改为
tmpUniqueId := 'Biz:\OPERATION\BDYGN.FUNC' + '.MainForm.Run' + '|' + '';

这样就可以了

lixy

补充一句，11楼代码是我的参考代码。我10楼代码是模仿着11楼代码写的。

atiger

hi，楼主，结果呢？

atiger

此贴结了，有问题，请重新开贴吧