窗体滚动条

procedure TFrmZxjsjbhzsfjlfwjlDj.FormMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
begin
   self.VertScrollBar.Position := self.VertScrollBar.Position + -WheelDelta;
end;

你可能感兴趣的:(滚动条)