那个好像不是公共对话框吧。不过,CSDN.Net里有这个VCL控件的。我用过,Delphi 5可以安装
解决方案 »
- cxGrid如何动态添加一个列,并把该列设置为有下拉框?
- 如何循环webbrowser的html值?
- 怎样在delphi中监视文本文件的变化?
- 用delphi/object pascal做个操作系统怎么样
- 请问如何对DBGrid多选项进行处理?????
- delphi中的16进制数怎么表示!?
- 用realaudio写的播放器如何实现双击全屏和拖拽播放??
- 我想通过网络实现对另一台机器的特定区域,出发一个按键动作,或鼠标单击动作怎么办??
- 我已将DBGRID中的一个字段设成了下拉列表的形式,可是现在是可以输入值的,请问如何做成只能选择的.
- 数据库中建表问题
- 如何用控件Query不能实现查询
- DELPHI安装问题!!!
我这里有一个带源码的VCL,想要?和我联系。[email protected]
在想调用的地方执行如:opendialog1.execute;的语句
SHBrowseForFolder
WINSHELLAPI LPITEMIDLIST WINAPI SHBrowseForFolder(
LPBROWSEINFO lpbi
);
bi: TBrowseInfo;
bi.hwndOwner := Handle;
bi.pidlRoot := pidlDomain;
bi.pszDisplayName := lpBuffer;
bi.lpszTitle := PChar(Title);
bi.ulFlags := 0;
bi.lpfn := FDCallback;
bi.lParam := UINT(self); pidlBrowse := SHBrowseForFolder(bi);
var thefilename:string;
procedure TFormsetpara.ButtonNavigateClick(Sender: TObject);
var dlg:TOpenDialog;
begin
dlg:=TOpenDialog.Create(self);
if dlg.Execute then
begin
thefilename:=dlg.FileName;
VoiceFileName.Text:=dlg.FileName;
end;
end;
"目录处理函数"
用法如下:
procedure TForm1.Button1Click(Sender:TObject);
var
path:string;
begin
selectDirectory('请选择目录','',path);//path就是你选择的目录,如果不为空的话
end;
procedure TForm1.Button1Click(Sender:TObject);
var
path:string;
begin
SelectDirectory('请选择目录','',path);//path就是你选择的目录,如果不为空的话;
end;