Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Значаение строк 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


Наверх

Титульная страница Поиск, карта сайта Написать письмо