| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прокрутка в TSrollBox
oleg__ © (2007-02-15 10:51:00)Добрый день!
Имеется TScrollBox, набор компонентов на нем. AutoScrool = true. На колесико мышки не реагирует, приходится прокручивать вручную вертикальную полосу прокрутки. Как сделать, чтобы была реакция на колесо мыши?
oleg__ (2007-02-15 11:29:00) [1]> TRUNK
Спасибо!
TRUNK (2007-02-15 11:14:00) [2]Этот код будет прокручивать ScrollBox вертикально, а при нажатом Shift - горизонтально:
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Handled := true;
if (WheelDelta > 0) then
WheelDelta := 10
else
if (WheelDelta < 0) then
WheelDelta := -10
else
Exit;
if (ssShift in Shift) then
ScrollBox1.HorzScrollBar.Position := ScrollBox1.HorzScrollBar.Position - WheelDelta
else
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - WheelDelta;
end;
| |
