колЁсико мышки

[Experementator]

Столкнулся с такой проблемой: окно программы не скролируется с помощью колесика мыши. Это осуществляется, только с помощью полосы прокрутки. Как мне это исправить?

[Kostia]

Возможно есть какой-то другой способ, но я пользуюсь таким:

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  VertScrollBar.Position:=VertScrollBar.Position+5;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  VertScrollBar.Position:=VertScrollBar.Position-5;
end;

[Stilet]

Ну в принципе так и должно быть. Вот пробуй так скролить.

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBy(WheelDelta,WheelDelta);
end;

[Experementator]

Спасибо! Работает.