Форум: "Начинающим";
Текущий архив: 2012.03.25;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c