判断坐标点是否在矩形区域内，在线等！倾分 跪等

[oicq111]

矩形区域1，2，3，4 四个坐标分别为：123.123,45.234;124,234,463...

通过简单的坐标大小比较不对，请问高手指点正确算法！谢谢神人

[sololie]

贴你的代码来看看

[一如当初]

Windows.PtInRect()

[sololie]

还不知道它说的坐标是不是鼠标坐标呢

[oicq111]

是空间坐标！大师，你能否留个QQ啊，关注你多时了 ！

[hsfzxjy]

function PtInRect(pt: TPoint;rect: TRect): boolean;
begin
  result := (pt.X > rect.Left) and (pt.X < rect.Right) and (pt.Y < rect.Bottom) and (pt.Y > rect.Top);
end;

[虎子8]

6楼正解 这是一个逻辑问题 点在矩形中间 那就是，x,y坐标都不能超出矩形范围 rect.left<x<rect.right rect.bottom<y<rect.top

[lm_whales]

TPoint;TRect 都是整型 你的坐标都是浮点型，要做某种比例变换，和四舍五入之类的处理，然后才能用PtInRect 不过这PtInRect，在delphi也应该是，库函数（内部函数才对），应该不需要自己定义了。

[hsfzxjy]

引用 8 楼 lm_whales 的回复:

TPoint;TRect 都是整型 你的坐标都是浮点型，要做某种比例变换，和四舍五入之类的处理，然后才能用PtInRect 不过这PtInRect，在delphi也应该是，库函数（内部函数才对），应该不需要自己定义了。

在Windows里

[lm_whales]

引用 9 楼 HSFZXJY 的回复:

[quote=引用 8 楼 lm_whales 的回复:] TPoint;TRect 都是整型 你的坐标都是浮点型，要做某种比例变换，和四舍五入之类的处理，然后才能用PtInRect 不过这PtInRect，在delphi也应该是，库函数（内部函数才对），应该不需要自己定义了。

在Windows里[/quote] delphi 的Linux 版本应该也是一样处理的吧！

[hsfzxjy]

引用 10 楼 lm_whales 的回复:

[quote=引用 9 楼 HSFZXJY 的回复:] [quote=引用 8 楼 lm_whales 的回复:] TPoint;TRect 都是整型 你的坐标都是浮点型，要做某种比例变换，和四舍五入之类的处理，然后才能用PtInRect 不过这PtInRect，在delphi也应该是，库函数（内部函数才对），应该不需要自己定义了。

在Windows里[/quote] delphi 的Linux 版本应该也是一样处理的吧！[/quote] 我说在Windows单元中。。在Linux下应该也有相同功能的库。。

[lm_whales]

引用 11 楼 HSFZXJY 的回复:

[quote=引用 10 楼 lm_whales 的回复:] [quote=引用 9 楼 HSFZXJY 的回复:] [quote=引用 8 楼 lm_whales 的回复:] TPoint;TRect 都是整型 你的坐标都是浮点型，要做某种比例变换，和四舍五入之类的处理，然后才能用PtInRect 不过这PtInRect，在delphi也应该是，库函数（内部函数才对），应该不需要自己定义了。

在Windows里[/quote] delphi 的Linux 版本应该也是一样处理的吧！[/quote] 我说在Windows单元中。。在Linux下应该也有相同功能的库。。[/quote] 抱歉你说的太简单了，没有理解！

[hsfzxjy]

引用 12 楼 lm_whales 的回复:

[quote=引用 11 楼 HSFZXJY 的回复:] [quote=引用 10 楼 lm_whales 的回复:] [quote=引用 9 楼 HSFZXJY 的回复:] [quote=引用 8 楼 lm_whales 的回复:] TPoint;TRect 都是整型 你的坐标都是浮点型，要做某种比例变换，和四舍五入之类的处理，然后才能用PtInRect 不过这PtInRect，在delphi也应该是，库函数（内部函数才对），应该不需要自己定义了。

在Windows里[/quote] delphi 的Linux 版本应该也是一样处理的吧！[/quote] 我说在Windows单元中。。在Linux下应该也有相同功能的库。。[/quote] 抱歉你说的太简单了，没有理解！[/quote] 没事，就当我没说。。我的意思就是 delphi的系统库里应该有这个函数。。

[oicq111]

要判断出哪边界呢？