TMouse.WheelScrollLines Property

Specifies the number of lines that are scrolled for each notch that the mouse wheel is rotated.

Pascal

property WheelScrollLines: Integer;

C++

__property int WheelScrollLines;

Description

Use WheelScrollLines to get the number of lines that are scrolled for each notch that the mouse wheel is rotated.

WheelScrollLines can be set under Mouse in the Windows Control Panel.

C++ Examples:

Copy Code

/*
This example uses two check boxes, three edit boxes and
a timer component on a form.  When the application starts,
the check boxes get checked by the application depending on
whether a mouse is detected and whether
a wheel button is available. The first edit box displays
the number of lines that are scrolled each time the wheel button
is rotated. The other two edit boxes display the position
of the mouse cursor at each millisecond, using the timer component.
*/
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  CheckBox1->Checked = Mouse->MousePresent;
  CheckBox2->Checked = Mouse->WheelPresent;
  Edit1->Text = IntToStr(Mouse->WheelScrollLines);
  Edit2->Text = IntToStr((int)Mouse->CursorPos.x);
  Edit3->Text = IntToStr((int)Mouse->CursorPos.y);
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Edit2->Text = IntToStr((int)Mouse->CursorPos.x);
  Edit3->Text = IntToStr((int)Mouse->CursorPos.y);
}

Delphi Examples:

Copy Code

{
This example uses two check boxes, three edit boxes and
a timer component on a form.  When the application starts,
the check boxes get checked by the application depending on
whether a mouse is detected and whether
a wheel button is available. The first edit box displays
the number of lines that are scrolled each time the wheel button
is rotated. The other two edit boxes display the position
of the mouse cursor at each millisecond, using the timer component.
}
procedure TForm1.FormCreate(Sender: TObject);
begin
  CheckBox1.Checked := Mouse.MousePresent;
  CheckBox2.Checked := Mouse.WheelPresent;
  Edit1.Text := IntToStr(Mouse.WheelScrollLines);
  Edit2.Text := IntToStr(Mouse.CursorPos.X);
  Edit3.Text := IntToStr(Mouse.CursorPos.Y);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := IntToStr(Mouse.WheelScrollLines);
  Edit2.Text := IntToStr(Mouse.CursorPos.X);
  Edit3.Text := IntToStr(Mouse.CursorPos.Y);
end;