TComboBoxで右クリックイベントを記述するには？

解決

みゅう  2004-09-16 11:17:54  No: 10935  IP: 192.*.*.*

TComboBoxを右クリックしたときに、ダイアログを表示したいのですが、
TComboBoxのイベントには、OnMouseUpがありません...

何かよい方法をご存知の方がおられましたら、教えてください。
よろしくお願いいたします<m(__)m>

編集 削除
jok  2004-09-16 11:31:53  No: 10936  IP: 192.*.*.*

>TComboBoxを右クリックしたときに、ダイアログを表示したいのですが、
>TComboBoxのイベントには、OnMouseUpがありません...

空の TPopupMenu を一つ置いて、それを ComboBox の PopupMemu に関連づけ
OnPopUp で

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  ShowMessage('TEST');
end;

などとする

編集 削除
ふぐちゃん  2004-09-16 11:32:05  No: 10937  IP: 192.*.*.*

OnContextPopupイベントはどうでしょうか？

編集 削除
jok  2004-09-16 11:33:57  No: 10938  IP: 192.*.*.*

あらら、ふぐちゃんさんのほうがいいですね。撤回します。

編集 削除
みゅう  2004-09-16 14:14:00  No: 10939  IP: 192.*.*.*

jokさん、ふぐちゃんさん、早速のご回答ありがとうございます。
TPopupMenuも、OnContextPopupもうまく動きました。
複数の中から処理を選択する場合は、TPopupMenuを、
1つしか実行しない場合は、OnContextPopupを使うようにします。
ありがとうございました。

編集 削除