Прокрутка формы от колесика мыши

[Hellen]

Как сделать чтобы форма от колесика мыши прокручивалась??
А то я такую портянку замутила.........а такую мелочь.......нешмагла.

[BOBAH13]

сообщение WM_MOUSEWHEEL

хотя посмотрел есть у формы события ...WHELL ! там и прокрутка вниз и т.д.

[Hellen]

А где это прописать? можно подробнее плиз.

[BOBAH13]

есть класс TForm1 - оно же окно то что видно при запуске дельфи и в котором создается собсно приложение, думаю понятно

в нем описаны события такие как

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

end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin

end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin

end;

вот их и обрабатывайте

[Hellen]

Спасибо......

[Саня]

Конечно позновато, но...

Обработать-то можно, но вот прокрутить...

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

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

Компонент VerScrollBar находится на форме с момента её создания (ищи в Object Inspector).

Это проще простого.