怎么样让主界面目录树响应单击事件呢？**

xjc · 发表于 2008-5-21 09:31:40

不好意思，昨天地震，没有及时的回复你。
1楼的问题用你的法能解决

4楼问题用你的方法我已经测试了，错误代码:52

jiahaiming · 发表于 2008-5-21 10:14:14

楼主，请把完整的错误信息描述一下。
最好配上截图

xjc · 发表于 2008-5-21 13:32:33

问题是编译时就出错了,报的是"不能调用"啊

jiahaiming · 发表于 2008-5-21 14:00:02

那你就把错误的截图给我看看。

xjc · 发表于 2008-5-21 15:28:26

TCommonComponentLibrary.UserSystem.CurrentPosition.Operator.FuncItems 这个不行
SystemCore.TSystemCore.Operator.FuncItems 这个可以

jiahaiming · 发表于 2008-5-21 15:36:43

楼主，还有问题吗？
没有就揭帖了。

xjc · 发表于 2008-5-21 15:40:36

我用SystemCore.TSystemCore.Operator.FuncItems.Items[0].ToString取不出来功能.
但是用SystemCore.TSystemCore.Operator.FuncItems.Count 得到值为50 说明有50个功能.
请问有什么办法来取得指定业务功能目录的下级功能呢.

jiahaiming · 发表于 2008-5-21 15:45:09

通过查询studiohelp得知：
SystemCore.TSystemCore.Operator.FuncItems.Items[0]是TOperatorFuncItem 类型，楼主可以参考它的定义来使用。

NameSpace: Business.Model
--------------------------------------------------------------------------------
TOperator = class(TBizObject)
protected
  ……
public
  ……
  property FuncItems: TOperatorFuncItems; readonly;
  ……
end;

NameSpace: Business.Model
--------------------------------------------------------------------------------
TOperatorFuncItems = class(Business.System.TObject)
public
……  property Items[Longint]: TOperatorFuncItem; readonly;
end;

NameSpace: Business.Model
--------------------------------------------------------------------------------
TOperatorFuncItem = class(Business.System.TObject)
public
  constructor create(FuncURL: TBizURL);
  procedure Destroy; override;
  function FindPosition(DeptID: string; PositionID: string; PersonID: string; OperatorPositions: array of TOperatorPosition): Boolean;
  function Has(OperatorPosition: TOperatorPosition): Boolean;
  function IsProcEntry: Boolean;
  property FuncDisplayName: string; readonly;
  property FuncFileName: string; readonly;
  property FuncSequence: Longint; readonly;
  property FuncURL: TReadOnlyBizURL; readonly;
  property PositionCount: Longint; readonly;
  property Positions[Longint]: TOperatorPosition; readonly;
  property ProcURL: TReadOnlyBizURL; readonly;
end;

xjc · 发表于 2008-5-21 16:09:02

我刚刚试了一下,这样可以!
lFuncItems := SystemCore.TSystemCore.Operator.FuncItems;
  for I := 0 to lFuncItems.Count - 1 do
  begin
lFuncItem := lFuncItems.Items[I];
Dialogs.ShowMessage(lFuncItem.FuncDisplayName);
  end;

gaihl · 发表于 2008-5-26 11:12:26

楼主,还有问题吗? 没有就结了?
有新问题可以发新贴!

		自动登录	找回密码
密码			立即注册