использование колеса мыши

[Bayazet]

поискал в форуме, вроде не возникало таких тем.

мне нужно использовать ролик мыши (нажатие на него и прокрутку)
как можно определить его на подобии mbRight, mbLeft, mbCenter?
mbCenter - это не то.
желательно получать так же Х и У от нажатий

[SERG1980]

может я не правильно понимаю, но возьмите события формы

procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;
TMainForm.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin

end;
procedure TMainForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin

end;

и их обрабатывайте

[Bayazet]

хм... а вот слоника-то я и не заметил..

procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

это событие не может обработать нажатие на колесо мышки.

а насчет 2х других - то что надо.

только тогда встречный вопрос: как можно не используя события типа
procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

извлечь положение курсора(Х,У)?

[Bayazet]

тьфу, блин! MousePos: TPoint.........

все, тему можно закрывать. я буксую что-то, извините

[SERG1980]

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

хм... а вот слоника-то я и не заметил..

procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

это событие не может обработать нажатие на колесо мышки.

почему нельзя а как же Button: TMouseButton;
if Button=mbMiddle then.............

[Bayazet]

дело в том, что колесико не считается центральной кнопкой мыши.
mbMiddle - наследие предков, которые использовали мышки, в простонародии именнуемые БАТОНАМИ, где была такая центральная кнопка.
колесико - совсем другое

[KORN]

mbMiddle это кнопка которая находится под колесом... это сделано для того что бы не делать 3 кнопки и колесо отдельно

[Kotofff]

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

дело в том, что колесико не считается центральной кнопкой мыши.
mbMiddle - наследие предков, которые использовали мышки, в простонародии именнуемые БАТОНАМИ, где была такая центральная кнопка.
колесико - совсем другое

Это кто Вам такое наговорил ?
Сами-то хоть раз пробовали события мыши обрабатывать ?
Если нет - попробуйте ...
Или может на Вашей мышке колесико просто не нажимается ? Есть такие модели мышей...
Работаем с нажатием на колесо зверушки :

procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
....
if Button=mbMiddle then.............
.....

... немного описания в модуле Controls :

TMouseButton = (mbLeft, mbRight, mbMiddle);

[Bayazet]

да, пробовал. не обрабатывается.

правда у меня достаточно навороченная мыша логитек, с драйвером на 40 мегабайт... и колесико умеет влево-вправо наклонятся. видимо в этом и таится разгадка..

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