如何判断一个点是否在一个矩形内？

scvzhang 2003-12-14 09:23:44

点坐标和矩形的4个点坐标我知道了

...全文

1049 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

cll007 2003-12-16

打赏
举报

delphi里面没有这样的特殊函数
不过ptInRect(r,p)这个api函数功能很强大，可以判断一个点是否在非规则图形里面

scvzhang 2003-12-16

打赏
举报

TO cll007(gazo)
哦，了解了解。

我以为有函数呢~

cll007 2003-12-16

打赏
举报

我有源码可以判断水平面内的矩形（可以平行X,Y轴，也可以不是）
我在此只想公布算法，相信你自己写的出来
1.如果矩形某边平行X或Y轴，这个简单，不说了
2.如果矩形某边不平行X或Y轴（在计算机屏幕上就是斜的）
假设矩形的某边与X轴的正向夹角为Angle(锐角或钝角都可以)
矩形的四个顶点是A[0],A[1],A[2],A[3],待判断点是Point
此时先计算矩形的中心点Center(x,y)
然后将四个顶点和待判断点是Point同时绕Center(x,y)点顺时针Angle
计算出四个顶点和判断点Point的新坐标，
此时的新矩形已经转换成(1.)中的情况
over

flyforlove 2003-12-16

打赏
举报

矩形和水平面不垂直？你的水平面指的是什么？
平面处理，怎么还有立体的东西？
如果你要的区域在平面上表现出来的是平行四边形，或者别的，
那就不是矩形了，
真搞不懂你说的什么意思。

scvzhang 2003-12-16

打赏
举报

矩形和水平面不垂直。。HELP

flyforlove 2003-12-15

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
p:TPoint;
r:TRect;
begin
p:=point(40,50);
r:=Rect(0,0,100,100);
if ptInRect(r,p) then
showmessage('点在矩形范围内');
end;

亲密数 2003-12-15

打赏
举报

Indicates whether a specified point lies inside a specified rectangle.

Unit

Types

Category:

geometric routines

Delphi syntax:

function PtInRect(const Rect: TRect; const P: TPoint): Boolean;

C++ syntax:

extern PACKAGE bool __fastcall PtInRect(const TRect Rect, const TPoint P);

Description

PtInRect returns true if the point, P, lies inside the rectangle, Rect, and false if P is not in Rect.

PtInRect does not consider a point inside a rectangle if the rectangle has a negative width or height. A point is considered inside a rectangle if it lies on the left or top edge, but not if it lies on the right or bottom edge.

flyforlove 2003-12-15