| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
[新規作成] [最新の情報に更新]
|
|
|
|
|
|
Delphi Tips
0339 D1 D2 D3 D4 D5 D6 D7 3.1 95 98 作成： 2003/06/25 osamu rev 1.1 B1 B3 B4 B5 B6 B7 NT3 NT4 2K XP 更新： 2003/06/25 osamu 編集
フォルダもファイルも選べるダイアログ
Ｑ．デスクトップ 〜 右クリック 〜 新規作成 〜 ショートカットの時に「参照」ボタンを押しますと、Caption は「フォルダの参照」とかになっていながらフォルダもファイルも選べるダイアログが出てきます。こいつを使用したいのです。
Ａ．ShBrowseForFolder で BIF_BROWSEINCLUDEFILES を指定すると良いようです。
with BrowseInfo do begin
hwndOwner := FhParent;
pidlRoot := nil;
pszDisplayName := BDisplayName;
lpszTitle := 'フォルダを選択してください';
ulFlags := BIF_STATUSTEXT or BIF_RETURNONLYFSDIRS or
BIF_BROWSEINCLUDEFILES; // ここを追加
lpfn := @BrowseFolderProc;
lParam := integer(@BFFR);
end;
参照： [Delphi-ML:76043] <Dialogs> <コンポーネント >
[新規作成] [最新の情報に更新]
How To
Lounge
KeyWords
Osamu Takeuchi osamu@big.or.jp
Tips
Delphi
Home