Как заставить VertScrollBar формы перемещатся по нажатию стрелок вверх и вниз.
Допустим для колёсика мыши:
Код:
1 2 3 4 5 6 7 8 9 10 11 | procedure TForm19.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
VertScrollBar.Position:= VertScrollBar.Position + 10;
end;
procedure TForm19.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
VertScrollBar.Position:= VertScrollBar.Position - 10;
end;
|
А как сделать тоже самое для стрелок? Спасибо.
29.12.2011, 00:43
Перемещение VertScrollBar формы
Древовидный вид