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

解決

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

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

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

編集    削除
jok  2004-09-16 20: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 20:32:05  No: 10937  IP: [192.*.*.*]

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

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

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

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

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

編集    削除