|
begin
BizBrowseDialog.ShowOptions := [TBizObjectKind.boServer,
TBizObjectKind.boBizServer, TBizObjectKind.boSpace, TBizObjectKind.boFolder,
TBizObjectKind.boBizFuncSpace, TBizObjectKind.boFunc];
BizBrowseDialog.Title := '选择功能启动BizURL';
BizBrowseDialog.PromptText := '选择一个功能启动BizURL';
BizBrowseDialog.MustSelectedNode := [TBizObjectKind.boServer,
TBizObjectKind.boBizServer, TBizObjectKind.boSpace, TBizObjectKind.boFolder,
TBizObjectKind.boBizFuncSpace,TBizObjectKind.boFolder,TBizObjectKind.boFunc];
end
获得功能路径,如果该功能上面有三个文件目录获得路径不是功能路径而是上层文件夹的路径,如果两层目录的话能获得功能路径。部分代码如上 |
|