Mega Code Archive

 

Categories / Delphi / Hardware

 

How to get mouse wheel line count

Title: How to get mouse wheel line count function GetNumScrollLines: Integer; begin SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @Result, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(GetNumScrollLines)); end;