基本上就是复制了你的代码
procedure TCT1.Button1Click(Sender: TObject);
var
s : WideString;
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];
BizBrowseDialog.Execute;
s := BizBrowseDialog.FileName;
Dialogs.ShowMessage(s);
end; |