Дополнительные кнопки мышки

[Kronos913]

На моей мышке есть дополнительные две кнопки
Вопрос: как в D7 отловить их нажатие, чтобы использовать в своей программе?

[DIONISKA]

Эти две кнопки это скорее всего xbutton1 и xbuton2, курим справку и выбираем способ и соответсвенно обрабатываем сообщения, в простейшем виде

 const
    WM_XBUTTONDOWN = $20b;
    WM_XBUTTONUP = $20c;
    WM_XBUTTONDBLCLK = $20d;
//...
type
  TFrmMain = class(TForm)
//...
 procedure xbtndown(var msg:TWMMouse); message WM_XBUTTONDOWN;
//...
  end;
procedure TFrmMain.xbtndown(var msg: TWMMouse);
begin
  //
  case HiWord(msg.Keys) of
    1: begin
        ShowMessage('XBUTTON1 pressed!');
        msg.Result:=1;
        //если сообщение обрабатывается, то необходимо вернуть результат
        //см: https://learn.microsoft.com/ru-ru/windows/win32/inputdev/wm-xbuttondown#return-value
      end;
    2:
      begin
        ShowMessage('XBUTTON2 pressed!');
        msg.Result:=1;
      end;
  end;
end;

[Kronos913]

Спасибо, код протестировал

Результат такой: если я совершаю нажатие на форме - оно обрабатывается
Если я совершаю нажатие на кнопке, или еще на каком-то элементе - то оно игнорируется

Отсюда вопрос: как распространить это нажатие на кнопку, или еще какой-то элемент?

[Kronos913]

Экспериментально получилось как-то так, но не сильно удобно получается
Это единственный способ решения проблемы?

  TButton111 = class(TButton)
  private
  public
    procedure xbtndown(var msg:TWMMouse); message WM_XBUTTONDOWN;
  end;

[DIONISKA]

могло бы помочь KeyPreview:=True; если-бы это не были xbutton, но и так вариантов в принципе немало: от локальных хуков до грязных хаков. Самый простой вариант это взять компонент TApplicationEvents и в OnMessage назначить ему что-то вроде:

procedure TFrmMain.AppEventsMessage(var Msg: tagMSG;
  var Handled: Boolean);
begin
Handled:=False;
   case Msg.message of
     WM_XBUTTONDOWN:
      begin
         case HiWord(Msg.wParam) of
             1:ShowMessage('XBUTTON1!');
             2:ShowMessage('XBUTTON2!');
         end;
      end;
   end;
end;

[Kronos913]

Итак, сделал вот такой вот код.

  TButtonXMouse = class(TButton)
  private
  public
    procedure xbtndown(var msg:TWMMouse); message WM_XBUTTONDOWN;
  end;

  TImageXMouse = class(TImage)
  private
  public
    procedure xbtndown(var msg:TWMMouse); message WM_XBUTTONDOWN;
  end;

И теперь сюрприз: с кнопкой все работает на ура. А с изображением - компилируется но никакой реакции на нажатия

[DIONISKA]

Сообщение от Kronos913

никакой реакции

Используйте вариант с ApplicationEvents(TApplicationEvents), сам компонент на вкладке additional. Я чуть выше пример написал, он должен работать со всеми элементами без таких костылей. Если мне не изменяет память ApplicationEvents есть даже в Delphi 6(возможно и в более старых версиях), другой вопрос если используете lazarus/codetyphon, там есть аналог ApplicationProperties, но у него нет события OnMessage, там скорее всего проще с хуками на WH_GETMESSAGE.

[Kronos913]

Вопрос про костыли номер 2
Такой код оптимален, или более прямой способ?

Цель всей конструкции - во время какого-то другого действия отследить факт того что боковая кнопка зажата

var
  F1_XBut1:boolean=false;
  F1_XBut2:boolean=false;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
const
  WM_XBUTTONDOWN = $20b;
  WM_XBUTTONUP = $20c;
  WM_XBUTTONDBLCLK = $20d;

begin
  Handled:=False;
  case Msg.message of
    WM_XBUTTONDOWN: begin
                      case HiWord(Msg.wParam) of
                        1: F1_XBut1:=true;
                        2: F1_XBut2:=true;
                      end;
                    end;
      WM_XBUTTONUP: begin
                      case HiWord(Msg.wParam) of
                        1: F1_XBut1:=false;
                        2: F1_XBut2:=false;
                      end;
                    end;
  End;
end;

[DIONISKA]

Сообщение от Kronos913

Такой код оптимален, или более прямой способ?

Если речь идёт просто о проверке что в какой-то произвольный момент времени нажата-ли кнопка, а не нужно отловить событие нажатия, то рациональнее всего использовать GetAsyncKeyState() из winapi(в том числе для XBUTTON1 и XBUTTON2). Что-то вроде:

const //виртуальные коды клавиш XBUTTON 1/2
     VK_XBUTTON1 = $05;
     VK_XBUTTON2 = $06;  
//..
  if GetAsyncKeyState(VK_XBUTTON1) <> 0 then showmessage('VK_XBUTTON1 сейчас нажата');
  if GetAsyncKeyState(VK_XBUTTON2) <> 0 then showmessage('VK_XBUTTON2 сейчас нажата');

[Kronos913]

О, спасибо. Это как раз то что мне нужно было