那如 Delphi 所说, 判断鼠标单击时是否在你画的 Button 上了procedure TForm1.img1Click(Sender: TObject);var P: TPoint; BtnRect: TRect;begin // 得到鼠标的屏幕坐标 if GetCursorPos(P) then begin // 转为 img1 中的相对坐标 P := img1.ScreenToClient(P); // 设置 按钮矩形 BtnRect BtnRect := Rect(a, b, c, d); // 然自己判断 坐标 是否在你的按钮范围内了 if Windows.PtInRect(BtnRect, P) then begin end; end;end;
