我有这个(现在可以使用)代码，它基于我在不同地方收集的位:procedureTFormMain.imgMapsGesture(Sender:TObject;constEventInfo:TGestureEventInfo;varHandled:Boolean);varLObj:IControl;LImage:TImage;W:Single;H:Single;beginLImage:=nil;LObj:=Self.ObjectAtPoint(ClientToScreen(EventInfo.Location));if(LObjisTImage)and(LObj.Visible)thenb