Отловить клик правой кнопкой мыши в ComboBox

[mansuetudo]

Добрый день. Есть необходимость выполнять некоторые действия, кликнув правой кнопкой мыши по элементу выпавшего списка ComboBox'а. Что-то никак не могу ни сама сообразить, ни найти в инете подсказку, может, неправильно формулирую запрос. Событие OnClick замечательно отлавливает левую и никак не реагирует на правую. Подскажите пожалуйста, как можно поймать этот самый "правый" клик?
Заранее спасибо.

[volvo877]

Получай хендл выпадающего списка в OnDropDown через GetComboboxInfo, подменяй его оконную процедуру своей, в которой лови WM_RBUTTON<...>, и делай с ним всё, что нужно. По закрытию выпадающего списка - восстанавливай оконную функцию (насколько я помню, при открытии списка он может создаваться заново, поэтому нельзя сделать один раз его сабклассинг и постоянно с ним работать, есть вероятность нарваться на проблемы). Вот примерный код:

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Memo1: TMemo;
    procedure ComboBox1DropDown(Sender: TObject);
    procedure ComboBox1CloseUp(Sender: TObject);
  private
    { Private declarations }
    CbxInstance: Pointer;
    OldCbxProc: Pointer;
  public
    { Public declarations }
    procedure NewCbxProc(var msg: TMessage);
  end;

+

function GetHandle(cbx : TComboBox) : HWND;
var
   Info: TComboBoxInfo;
begin
   ZeroMemory(@Info, SizeOf(Info));
   Info.cbSize := SizeOf(Info);
   GetComboBoxInfo(cbx.Handle, Info);
   Result := Info.hwndList;
end;

procedure TForm1.NewCbxProc(var msg : TMessage);
begin
   case msg.Msg of
      WM_RBUTTONDOWN:
      begin
         Memo1.Lines.Add('Right click detected !'); // Обрабатывай как нужно
      end;
   end;
   msg.Result := CallWindowProc(OldCbxProc, GetHandle(ComboBox1),
                                msg.Msg, msg.WParam, msg.LParam);
end;

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
   SetWindowLong(GetHandle(ComboBox1), GWL_WNDPROC, Integer(OldCbxProc));
   FreeObjectInstance(CbxInstance);
end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
    CbxInstance := MakeObjectInstance(NewCbxProc);
    OldCbxProc := Pointer(SetWindowLong(GetHandle(ComboBox1),
        GWL_WNDPROC, Integer(CbxInstance)));
end;

[mansuetudo]

Спасибо, буду разбираться.

P.S. Офф - кошка шикарная, давно таких не видела

[artemavd]

Именно на самом компоненте? Если нет, то ответ дан выше. Если да, то у каждого компонента есть свойство OnContextPopup, которое срабатывает как раз, когда на компоненте нажали правую кнопку мыши.

[mansuetudo]

OnContextPopup у меня срабатывает почему-то только при клике на самом компоненте и не срабатывает на выпавшем списке. Пробовала определять координаты выпавшего списка, преобразовывать в оконные и вызывать выполнение нужных функций при клике в заданном прямоугольнике - не работает. Возможно, просто не туда привязываю вызов.

[volvo877]

OnContextPopup у меня срабатывает почему-то только при клике на самом компоненте и не срабатывает на выпавшем списке.

OnContextPopup и не должен срабатывать на выпадающем списке. Только на поле ввода/стрелке. Потому что только там можно вызвать правой кнопкой мыши контекстное меню. Для отлова при выпавшем списке - только подменять его оконную функцию.

Тебе чего сделать-то надо? Найти айтем, на котором кликнули правой кнопкой? Так спроси у hwndList-а, вышли ему LB_GETCURSEL, он тебе вернет индекс выделенного на данный момент элемента. Это и будет индекс элемента, над которым была нажата правая кнопка мыши

[mansuetudo]

Пока что у меня вообще не получалось выполнить действие при клике на выпавшем списке. Не было никакой реакции вообще. Удалось решить при помощи такого кода (нашла в инете и скорректировала под себя):

procedure TForm1.AppMessage(var Msg:TMsg; var Handled:Boolean);
var
 C:TWinControl;
begin
 if Msg.message=WM_RBUTTONUP then begin
  C:=Screen.ActiveControl;
  if C is TComboBox then
    with TComboBox(C), Items do
     if DroppedDown and (ItemIndex>=0) then PopupMenu1.Popup(Msg.pt.X,Msg.pt.Y)
 end;
end;

+ в OnCreate для формы прописала

Application.OnMessage:=AppMessage;

Клик ловится, надо допрописать по мелочам (определить элемент, над которым кликнули и выполнить действия по клику). Ваш последний совет как раз в тему
Спасибо всем, думаю, нужные ответы у меня есть

[volvo877]

Пока что у меня вообще не получалось выполнить действие при клике на выпавшем списке. Не было никакой реакции вообще.

Вообще-то я копировал код (который приведен во втором посте) из работающего приложения. Клик в нем прекрасно ловится. Что уж там можно было сделать не так, чтобы клик НЕ ловился - непонятно.

[mansuetudo]

Я имела в виду, что клик не ловился раньше, до того, как я обратилась сюда с вопросом. В приведённом выше коде я толком ещё не разобралась по разным причинам - недостаток знаний, недостаток времени (аудит приехал), ну и то, что программирование, в общем-то, не есть моя основная работа. Пока по мере возможности буду проверять всё, что удалось по теме найти, чтоб возможные подводные камни найти и обойти. За помощь большое спасибо!

[Ruslan_9977]

Спасибо за хороший пример, очень помог.