function GetNumScrollLines: Integer; begin SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @Result, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(GetNumScrollLines)); end;
|
Категория: Работа с мышью | Добавил: Admin (2006-12-17)
| Автор: delphi
|
Просмотров: 2030
| Рейтинг: 0.0 |
|