delphi - 确定一个点是否在多边形内？

我在Delphi(继承自TCustomControl)中制作了一个自定义控件，该控件由许多多边形列表项(不规则形状)组成。我需要实现每个项目的鼠标事件，但是首先我需要能够检测鼠标位置是否在给定的多边形(array of TPoint)内。我正在捕获“ HitTest ”消息(WM_NCHITTEST)，这是我需要进行此验证的地方。我有多个多边形，我将遍历每个多边形项目并执行此检查，以查看鼠标的X/Y位置是否在此多边形内。

procedure TMyControl.WMNCHitTest(var Message: TWMNCHitTest);
var
  P: TPoint; //X/Y of Mouse
  Poly: TPoints; //array of TPoint
  X: Integer; //iterator
  I: TMyListItem; //my custom list item
begin
  P.X:= Message.XPos;
  P.Y:= Message.YPos;
  for X := 0 to Items.Count - 1 do begin
    I:= Items[X]; //acquire my custom list item by index
    Poly:= I.Points; //acquire polygon points

    //Check if Point (P) is within Polygon (Poly)...?

  end;
end;

最佳答案

您可以使用 PtInRegion :

function PointInPolygon(Point: TPoint; const Polygon: array of TPoint): Boolean;
var
  rgn: HRGN;
begin
  rgn := CreatePolygonRgn(Polygon[0], Length(Polygon), WINDING);
  Result := PtInRegion(rgn, Point.X, Point.Y);
  DeleteObject(rgn);
end;

关于delphi - 确定一个点是否在多边形内？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/10540796/