Работа с колесиком мыши

Работа с колесиком мыши

Как обработать нажание на колесико мыши, прокручивание его вверх и прокручивание вниз?
Для этого нужно воспользоваться стандартными обработчиками событий:

// обработка прокрутки колеса вниз
procedure MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

// обработка прокрутки колеса вверх
procedure MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);

// обработка нажатий на кнопки мыши
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

Соответственно их обработка:

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
Form1.Caption:= 'крутим вверх';
end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState ;
MousePos: TPoint; var Handled: Boolean);
begin
Form1.Caption:= 'крутим вниз';
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbMiddle: Form1.Caption:= '"наступили" на колесо...';
end;
end;

Эта запись была добавлена в Пятница, 2 мая, 2008 - 14:11 В разделы Аппаратные средства, Мышка. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.