怎样显示一个“浏览”对话框？

Question

delphi的安装目录下面有子目录：Demos\RichEdit，你自己看看这个例子就完全能够搞定了。

Answer 1

在组建面板的win3.1中的filelist,dectorylist,driverlist组合使用，在用个edit保存就行了

Answer 2

uses FileCtrl;
.....
const
  SELDIRHELP = 1000;
....
var
  Dir: string;
begin
  Dir := 'C:\';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
     application.MessageBox(PCHAR('选择了路径'+dir),'提示',MB_OK);
end;

Answer 3

uses FileCtrl;
....
var
  Dir: string;
begin
  Dir := 'C:\';
  if SelectDirectory( '请选择存放生成文件的目录' ,'' ,Dir)=true then
    ShowMessage(Dir);
end;

Answer 4

uses FileCtrl;
....
var
  Dir: string;
begin
  Dir := 'C:\';
  if SelectDirectory( '请选择存放生成文件的目录' ,'' ,Dir)=true then
    ShowMessage(Dir);
end;