![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Значаение строк MouseWheel
markers © (2006-09-09 00:25:00)Как получить системное значение количества прокручивания строк Mouse Wheel?
markers (2006-09-09 01:05:00) [1]Zeqfreed © (09.09.06 0:38) [1]
Спасибо :) Всё сделал. Воть код (Кому интересно)
procedure TMainForm.ProductListMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
var ScrollLines:Integer;
begin
SystemParametersInfo(SPI_GETWHEELSCROLLLINES,0,@ScrollLines,0);
TScrollBox(Sender).VertScrollBar.Position:=TScrollBox(Sender).VertScrollBar.Posi tion-ScrollLines;
end;
Zeqfreed (2006-09-09 00:38:00) [2]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/systemparametersinfo.asp