请问哪里有“浏览目录对话狂“控件下啊?

xmayxmei 2003-08-20 11:56:33
???告诉我地址啊》
...全文
19 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lishen 2003-08-20
  • 打赏
  • 举报
回复
unit SeleDirectory;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, FileCtrl;

type
TfrmSeleDirectory = class(TForm)
DriveComboBox1: TDriveComboBox;
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
FilterComboBox1: TFilterComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
SeleDirectoryLabel: TLabel;
btnOK: TButton;
btnCancel: TButton;
procedure btnOKClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
private
{ Private declarations }
procedure FindException(Sender: TObject; E: Exception);
public
{ Public declarations }
end;

var
frmSeleDirectory: TfrmSeleDirectory;
DriveChar : Char;
implementation

{$R *.DFM}

procedure TfrmSeleDirectory.FindException(Sender: TObject; E: Exception);
begin
Application.MessageBox('磁盘驱动器读取错误。', '错误', MB_IconStop);
DriveComboBox1.Drive := DriveChar;
end;

procedure TfrmSeleDirectory.btnOKClick(Sender: TObject);
begin
if (FileListBox1.Items.Count = 0) or (FilterComboBox1.ItemIndex = 1) then
SeleDirectoryLabel.Caption := '';
Close;
end;

procedure TfrmSeleDirectory.FormCreate(Sender: TObject);
begin
Application.OnException := FindException;
DriveComboBox1.Drive := 'C';
end;

procedure TfrmSeleDirectory.DriveComboBox1Change(Sender: TObject);
begin
DriveChar := DriveComboBox1.Drive;
end;

end.
lean77 2003-08-20
  • 打赏
  • 举报
回复
用自带控件DirectoryListBox吧
hailang_zh 2003-08-20
  • 打赏
  • 举报
回复
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
end;

返回的Dir就是你选择的目录
lxpbuaa 2003-08-20
  • 打赏
  • 举报
回复
例如:
uses FileCtrl;

const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
lxpbuaa 2003-08-20
  • 打赏
  • 举报
回复
Delphi 自己就有一个函数可以实现:
SelectDirectory
在FileCtrl单元。从帮助中也可以找到它。

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧