Delphi源码:下滚一屏varwctrl: TWinControl;pt: TPoint;begin GetCursorPos(pt); wctrl := FindVCLWindow(pt); wctrl.ScrollTo(100,100);end;截碧轮图我就不用灶衡说了,网上多隐慧做得是.