複数のコンポーネントで OnDrowItem イベントの処理を共通化するには？

解決

めるめる 2007-07-19 03:51:17 No: 27114

いつもお世話になります。
フォームに複数の TComboBox (ComboBox1 〜 ComoBox10) を貼り付け、
各々 .Tag に 1 〜 10 をセットしています。

この方法で、OnClick, OnContextPopup, OnDropDown イベントは、
Tag の値を使用して処理を共通化できるのですが、
OnDrowItem イベントの引数に (Sender: TObject) がないため
TComponent(Sender).Tag が使用できません。

OnDrowItem でも処理を共通化できる方法がありましたら、
よろしくお願いします。
※どうもうまく表現できず、分かり難くて申し訳ありません。

Basser 2007-07-19 04:01:24 No: 27115

第１パラメータの Control でいいのでは？

めるめる 2007-07-19 10:50:49 No: 27116

Basser 様
Control.Tag を参照したらうまくいきました。
ありがとうこざいました。

めるめる 2007-07-19 10:51:18 No: 27117

解決チェックを忘れました。