|

楼主 |
发表于 2007-3-6 16:48:03
|
显示全部楼层
怪事!!!
该功能是这样运行的:
TSystemCore.FuncManager.RunFunc(FDefaultPosition.Context, '',
'Biz:COLLABORATIONJUSTEPNOTEBOOK.FUNC', '', False, nil, False);
procedure TNOTEBOOKMAINFORM.Button1Click(Sender: TObject);
var
pID, pName : string;
begin
pID := SystemUtils.TContextUtils.GetOperatorPosition(Context).Position.ID;
pName := SystemUtils.TContextUtils.GetOperatorPosition(Context).Position.DisplayName;
jsDialogs.ShowMsg(pName, pID);
end;
|
|