フォルダ選択ダイアログを表示する



実行すると下記の図が表示されます。




■uses節にFileCtrlを追加する

■ソースは下記のようになります。

■フォルダ選択ダイアログボックスを表示する処理
procedure TForm1.Button1Click(Sender: TObject);
var
　Dir: string;　//選択されたフォルダ名
begin
　if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
　Label1.Caption := Dir;
end;

■第二引数の説明

sdAllowCreate 編集ボックスが表示され，ユーザーは存在しないディレクトリの名前を入力できる。
sdPerformCreate 存在しないディレクトリ名をユーザーが入力すると，SelectDirectory がそのディレクトリを作成する
sdPrompt 入力したディレクトリが存在しないことをユーザーに通知し，そのディレクトリを作成するかどうかをたずねるメッセージボックスを表示する。



Delphi　Tipsのページへ



ホーム