【结帖】工作台功能弹出问题**

cdz0451

在工作台 运行功能的时候，有这样一个发现。
通过左侧菜单栏点出的功能窗体 都是镶嵌在工作台里的，
但是有的功能就不是镶嵌在里面的。
我想问，怎么做可以让功能 都依附于工作台存在？

zfang

SystemCore.TSystemCore.FuncManager.RunFunc

cdz0451

这句代码我见过
TSystemCore.FuncManager.RunFunc(Context,
                                '',
                                'Biz:\JTTXM\XXCK2.Func',
                                GetTestDataSet.FieldByName('XXBH').AsString,
                                False, nil, False);
这么写 就能让 这个功能  'Biz:\JTTXM\XXCK2.Func   镶嵌在 工作台上吗？

zfang

对，如果最后一个参数为true的话就是showmodal的方式了

cdz0451

能给我解释下 SystemCore.TSystemCore.FuncManager.RunFunc 里面几个参数的意思吗？
谢谢

zfang

procedure RunFunc(AContext: TContext; const AUniqueID, AFuncURL, AParams: string; UseUI: Boolean; BeforeRunFunc: TFuncNotifyEvent; Modal: Boolean); overload;
参数说明：
AContext：创建功能实例的环境
AFuncURL：要运行的功能URL
AParams：创建功能实例时，传递的参数，获取参数的方法是
        FuncBroker.Func.Parameters
AUniqueID：创建功能时的唯一标识，首先在环境下按照UniqueID寻找这个功能是否已经创建，如果已经存在就激活功能页，如果不存在就创建一个功能实例。如果UniqueID为空，则UniqueID的取值规则为：
       AFuncURL + '||' + AParams + '||' + ADeptID + '||' + APositionID + '||' + APersonID;
Modal：决定是否窗体是ShowModal，也就是弹出来运行，即另外开一个窗口运行，而不是在tabpage页运行！
UseUI：暂时没有使用
BeforeRunFunc：是在功能运行之前，触发的事件 ，在功能运行时做的事情时候用 。格式为：
         BeforeRunFunc(Sender：TObject, AFunc：TFunc);

cdz0451

OK 结贴