Вопрос про ScrollBox

[juan666777]

Я в ScrollBox установил Image и реализовать прокрутку ScrollBox с помошью колёсика мыщки?
Я вот сделал вот это ноу меня както не правильно работает :

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if Image1.Top>=-10000 then
Image1.Top:=Image1.Top-100;
end;
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if Image1.Top<=0 then
Image1.Top:=Image1.Top+100;
end;
Потскажите как правильно сделать .

[Роман Радер]

ща найду исходник...
---
Вот, когда-то делал. Там все просто:

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-WheelDelta;
  ScrollBox1.Realign;
end;

[juan666777]

Спасибо всё заработало )

[Алён@]

Спасибо, мне тоже очень пригодилось!