Разбираем mspaint на составляющие

[ichi]

Не получается сделать прокрутку колесиком мыши компонента PaintBox при помощи компонента ScrollBox, в том случае когда размер PainBox больше, чем размер клиентской части формы. Для этого использовал следующий код:

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

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

Почему может не работать?

[ichi]

Событие прокрутки колеса мыши вообще не отрабатывает. Очень странно. Добавил в процедуру события прокрутки колеса функцию ShowMessage. Сообщение ShowMessage не появляется. Есть идеи почему?

procedure TForm1.scrlbx1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 ShowMessage('OnMouseWheel');
  Handled := true;
  if (WheelDelta > 0) then
    WheelDelta := 10
  else
  if (WheelDelta < 0) then
    WheelDelta := -10
  else
    Exit;
  if (ssShift in Shift) then
    scrlbx1.HorzScrollBar.Position := scrlbx1.HorzScrollBar.Position - WheelDelta
  else
    scrlbx1.VertScrollBar.Position := scrlbx1.VertScrollBar.Position - WheelDelta;
end;

[BDA]

Не знаю, почему событие не доходит до скроллбокса, если добавить обработчик у формы, то прокручивается:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ssShift in Shift then
  begin
    if WheelDelta < 0 then
      SendMessage(scrlbx1.Handle, WM_HSCROLL, SB_LINERIGHT, 0)
    else
      SendMessage(scrlbx1.Handle, WM_HSCROLL, SB_LINELEFT, 0)
  end else
  begin
    if WheelDelta < 0 then
      SendMessage(scrlbx1.Handle, WM_VSCROLL, SB_LINEDOWN, 0)
    else
      SendMessage(scrlbx1.Handle, WM_VSCROLL, SB_LINEUP, 0)
  end;
  Handled := True;
end;

[ichi]

Сообщение от BDA

Не знаю, почему событие не доходит до скроллбокса, если добавить обработчик у формы, то прокручивается:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if ssShift in Shift then
  begin
    if WheelDelta < 0 then
      SendMessage(scrlbx1.Handle, WM_HSCROLL, SB_LINERIGHT, 0)
    else
      SendMessage(scrlbx1.Handle, WM_HSCROLL, SB_LINELEFT, 0)
  end else
  begin
    if WheelDelta < 0 then
      SendMessage(scrlbx1.Handle, WM_VSCROLL, SB_LINEDOWN, 0)
    else
      SendMessage(scrlbx1.Handle, WM_VSCROLL, SB_LINEUP, 0)
  end;
  Handled := True;
end;

Ваш пример работает. Обработчик колесика мыши у формы отрабатывает, прокрутки вертикальная и горизонтальная работают. Спасибо за помощь.