カテゴリーボタンのOnClickエベントで「Hint」を受け取るには (ID:37147)

名前

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

本文 いつもお世話になっています。 カテゴリーボタンを利用して、実行するＳＱＬの振り分けを考えています。 OnClickエベントを一つのprocedureで済ませたく、Hintで実行するSql文のテキストファイルを指定しようと考えました。 SenderからHintを得ようとしますがうまくゆきません。 ご教授をお願いします。 [テストPro] procedure TForm1.CategoryButtons1Categories0Items0Click(Sender: TObject); begin ShowMessage((Sender as TButtonItem).Hint); end; [発生するエラー] $7C812AFB に最初の偶発例外があります。例外クラス EInvalidCast （メッセージ '無効なクラス型キャスト'）。 [環境] XP Delphi2007