Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.03.25;
Скачать: CL | DM;

Вниз

ScrollBox   Найти похожие ветки 

 
Елена   (2011-12-08 18:10) [0]

Здравствуйте. Можно ли "заставить" ScrollBox реагировать на колесико мыши?


 
DVM ©   (2011-12-08 18:16) [1]

можно


 
Rouse_ ©   (2011-12-08 18:17) [2]

WM_MOUSEWHEEL + SetScrollPos()


 
Dimka Maslov ©   (2011-12-08 18:22) [3]

События от колёсика мыши направляются не в окно, над которым находится курсор, а в окно, имеющее фокус. Поэтому для реакции скроллбокса на колесо надо либо передать на него фокус, либо сделать на форме KeyPreview = true и транслировать события от колеса мыши в скроллбокс


 
Laguna ©   (2011-12-08 23:47) [4]


procedure TMainFrm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
Var
 sled : Integer;
begin
 Handled := True;
 if (WheelDelta > 0) then
  sled := Opt_A.ParDelta
 else
  sled := -Opt_A.ParDelta;
 if TScrollBox(FindComponent("SB1")) <> nil then
  with TScrollBox(FindComponent("SB1")) do
   VertScrollBar.Position := VertScrollBar.Position - sled;
end;

Взято из реального кода, т.к. SB1 формировался в рантайм и устанавливалась дельта из параметров программы.



Страницы: 1 вся ветка

Текущий архив: 2012.03.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1323424929
webpauk
2011-12-09 14:02
2012.03.25
Динамический массив


15-1322654703
Alex_C
2011-11-30 16:05
2012.03.25
Получить отчет по подтверждению


15-1322574300
alexdn
2011-11-29 17:45
2012.03.25
Логический блок div


15-1322425802
Юрий
2011-11-28 00:30
2012.03.25
С днем рождения ! 28 ноября 2011 понедельник


1-1273054167
Roman-555
2010-05-05 14:09
2012.03.25
Увеличение точности вычислений до 30-40 значащих цифр