TScrollBox не прокручивается верт. scroll от мыши

[alexey.barkalov]

Возник такой вопрос - на форме лежит TScrollBox и в него "кладутся" TPanel, а на нее checkbox и label. В результате формируется в ScrollBox вертикальный скролл, но при прокрутки колесика на мыши он не перемещается. Как заставить его перемещаться?

    pnl := TPanel.Create(MyScrollBox);
    pnl.Parent := MyScrollBox;
    pnl.Align := alTop;
    pnl.Height := 18;
...
    chk := TCheckBox.Create(pnl);
    chk.Parent := pnl;
    chk.Align := alLeft;
    chk.Width := 17;
...
    lb := TLabel.Create(pnl);
    lb.Parent := pnl;
    lb.Align := alClient;

[Kotofff]

Обрабатывайте событие когда мышь над Вашим ScrollBox`ом и передавайте ему фокус.

[alexey.barkalov]

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

Обрабатывайте событие когда мышь над Вашим ScrollBox`ом и передавайте ему фокус.

В смысле, можно примерный код?

[Kotofff]

Тут были ?
http://www.programmersforum.ru/showthread.php?t=90871

[Iron Monk]

procedure TForm1.ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
   ScrollBox1.SetFocus;
end;

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

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

[Аватар]

И так можно

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

[Iron Monk]

Тогда так. Уж больно шаг огромен.

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

[alexey.barkalov]

Сообщение от Iron Monk

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

Спасибо за код. Не совсем понятно почему сам ScrollBox криво обрабатывает. Очевидно же если крутим колесиком мыши над ScrollBox он свой VertScroll должен прокручивать сам. Это кривизна VCL?

[Аватар]

А еще фокус ввода есть. Так что совсем не очевидно