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

解決

みゅう 2004-09-16 20:17:54 No: 10935

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

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

jok 2004-09-16 20:31:53 No: 10936

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

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

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

などとする

ふぐちゃん 2004-09-16 20:32:05 No: 10937

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

jok 2004-09-16 20:33:57 No: 10938

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

みゅう 2004-09-16 23:14:00 No: 10939

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