ScrollBox - como o mouse wheel para rolar o scrollbox

Top  Previous  Next

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

begin

  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.ScrollPos + 8;

end;

 

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

begin

  ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.ScrollPos - 8;

end;

 

// para funcionar isso é necessário:

procedure TForm1.Button2Click(Sender: TObject);

begin

  ActiveControl := ScrollBox1;

end;