以鼠标为中心进行缩放，就像使用百度地图时一样。这种方式比一般的以图像中心点为中心进行缩放更加符合人们的思维惯性。 在网上找了没发现现成的，自己研究了半天，绕来绕去，头晕眼花的。后来得到群友的帮助才解决了这个问题。 下面给出由网友霸天虎兄弟提供的方法改写出来的代码： procedure TForm1.Zoom(I: Si