ShellListViewでソートができない (ID:35695)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ShellListViewの列をクリックしたときに ソートをするようにしたいと思っています。 <a href="https://www.petitmonte.com/bbs/answers?question_id=3043">https://www.petitmonte.com/bbs/answers?question_id=3043</a>にそのものズバリの回答がありましたので、同様にコードを追加したのですが、コンパイルしたところ、 'ShellListView1ColumnClick' の宣言がすでに定義されているものと異なります とコンパイルエラーが表示されてしまいました。 以下の作業を行っただけでも上記エラーとなってしまいます。 ①デザイナにて、「ShellListView1」コントロールを選択し、 「オブジェクトインスペクトタ」の「イベント」にて、 「OnColumnClick」の欄をダブルクリック ②pasファイルに以下のコードが追加されるので、 1行だけコードを追加してコンパイル （中身が空でコンパイルした場合は、コードが自動で消去されてしまいますので、 「exit」だけを追加してコンパイルしました。） procedure TForm1.ShecllListView1ColumnClick(Sender: TObject; Column: TListColumn); begin exit; //1行だけ追加 end; 上記手順だけでも上記のコンパイルエラーとなってしまいます。 （エラーメッセージから、親クラスでも同様のイベントハンドらが 定義されているのかな？と思い、overrideなどをつけたりしたのですが やはり同じエラーになるようでした。） イベントハンドラをデザイナから追加しただけでもエラーになるため、 Delphiの問題かと思っているのですが、環境の問題なのでしょうか？ （Delphiのバージョンは2007です。） もし原因がわかる方がいらっしゃいましたら、 教えていたいてもよろしいでしょうか？