名前 題名 ▼ Mr.XRAYさん > 分かりました． > > > これはですね．Vista 以降の現象ですね．多分(自信なし) > > 他にもあるかも知れません． > > ググってみたら，ありました． > 昔からある現象のようです．DblClick 内での ShellExecute 関数の挙動のようです． > [Enter] キーはコンテキストメニューのコマンドを実行しているようです． > そこで，ShellCtrls.pas 内の以下のようにすれば，現在のところ OK のようです． > 動作確認環境は前と同じです． > > ShellCtrls.pas 等があるフォルダにパスを通さないと有効になりません． > バスを通して，修正したら，プロジェクトを再構築してください． > > > procedure TCustomShellListView.DblClick; > begin > if FAutoNavigate and (Selected <> nil) then > with Folders[Selected.Index] do > if IsFolder then > SetPathFromID(AbsoluteID) > else > ExecuteDefault; //追加 > // ShellExecute(Handle, nil, PChar(PathName), nil, //削除 > // PChar(ExtractFilePath(PathName)), 0); //削除 > inherited DblClick; > end; > > > 以下をヒントに修正コードを作成しました． > > http://www.delphipages.com/forum/showthread.php?t=122681 > > > [備考] > 私自身は，Delphi 付属のシェルコンポーネントを使用していませんので， > 気づきませんでした． > 昔は，サードパーティ製を，今は自作のシェルコンポーネントを使用しています． > 特定の Delphi のバージョン用ですので，公開の予定はありません． > サンプルプログラム集の [819] [820] が元となっているコンポーネントです． > > > 前に UP したファイルですが，EXE を作成し直して再 UP しておきます． > http://mrxray.on.coocan.jp/Delphi/zip/ShellComponent_D7.zip GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link