Получить диапазон, прокручиваемый колесиком мышки

Delphi , ОС и Железо , Мышка и Курсор

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

//Not supported on Windows 95 
//result = -1: scroll whole page 

function GetNumScrollLines: Integer;
 begin
   SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @Result, 0);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage(IntToStr(GetNumScrollLines));
 end;

Приведенный код на Delphi предназначен для получения количества строк, которые можно прокрутить одним кликом мыши колесом. Это значение зависит от платформы и может не работать на всех системах, как указано в комментарии.

Следующий разбор того, как работает код:

1. Функция GetNumScrollLines имеет тип возвращаемого значения integer и использует вызов API SystemParametersInfo для получения количества строк прокрутки.
2. Константа SPI_GETWHEELSCROLLLINES используется как первый параметр, который указывает, что мы хотим получить информацию о поведении прокрутки колеса мыши.
3. Второй параметр (0) указывает, что у нас нет буфера для заполнения; вместо этого мы получим результат в третьем параметре.
4. Синтаксис @Result передает указатель на переменную integer, называемую Result, где функция будет хранить полученное значение.
5. В обработчике события Button1Click, функция GetNumScrollLines вызывается, и ее возвращаемое значение конвертируется в строку с помощью IntToStr. Затем это результат отображается в сообщении.

Обратите внимание, что код может не работать на всех системах, как указано в комментарии (Windows 95 является конкретно исключенным случаем). Кроме того, возвращаемое значение будет равно -1, если вся страница может быть прокручена одним кликом колеса мыши.

Данное программирование на языке Delphi получает диапазон прокрутки страницы, который можно выполнить с помощью колесика мыши.

Комментарии и вопросы

:: Главная :: Мышка и Курсор ::