Form的OnMouseWheel事件
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
Form1.VertScrollBar.Position:= Form1.VertScrollBar.Position- (WheelDelta div 20); // 数值越小,滚动越快。
end;
delphi 用鼠标滚轮控制Form的垂直滚动条
最新推荐文章于 2023-04-27 10:40:16 发布