Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2002年01月14日] [更新 2014年01月03日] ファイル関連ダイアログコンポーネント類
フォルダの参照ダイアログコンポーネント
使用方法
動作確認等 図は Windows 7 U64(SP1) + Delphi XE(UP1) Pro で作成







使用方法


フォームに配置し、プロパティを設定して Execute メソッドを実行します。




ダイアログの表示位置


ダイアログの表示位置用のプロパティ FormLeft、FormTop の値はデフォルトで 0 です。
これらの値が共に 0 の時は、スクリーンの中央に表示するようになっています。以前のバージョンとの互換性を保つためためにこの仕様となっています。




実行時に生成する場合の注意


Owner を nil にするとダイアログを表示しません。必ず有効な TComponent の派生コントロールを指定してください。




開発時 ( IDE ) での実行時の注意 ( Windows Vista 以降 )


新しいスタイルのダイアログでは、ファイルやフォルダのコンテキストメニューが表示できますが、IDE からコンパイルして表示するとプログラムが停止します。直接 EXE を起動してテストしてください。この現象は Windows Vista 以降で発生します。




IDE 起動時のリソースの読み取り違反エラー


本コンポーネントを使用したプロジェクトを起動すると、下図のようにモジュールの読み取り違反がおきることがあります。
2014年01月03日現在、筆者環境での確認では、主に Delphi XE, Delphi XE2 で発生するようです。
Delphi 6, 7, 2007, 2009, 2010, XE3, XE4, XE5 では発生を確認していません。原因、対応策については不明です。このエラーが発生しても動作そのものに影響はないようです。
コンポーネントのソースコードの {$R *.res} 部分を削除すれば発生しませんが、ファイル選択保存ダイアログの、絞り込み表示ボタンとフォルダ参照ボタンのアイコンが表示されなくなります。


図1