如何判断一个点在一个区域内？(30分)

Solid_Snake · 2004-04-23

如题，我总是失败，我是在TForm1的ONPaint里面花了一个矩形，然后用PtInRect判断，但是没有用，我又想点在矩形区域内后，传给TForm1的OnClick，但是还是不行，我的代码： var   ss: TRect;   x: TPoint; begin    with ss do   begin     top := 100;     left := 100;     right := 300;     bottom := 300;   end;   canvas.Rectangle(ss);   if PtInRect(ss,x) then     showmessage('szsd'); 请问到底应该如何修改？谢谢了。

zjan521 · 2004-04-23

你的TPoint x没有初始化

Solid_Snake · 2004-04-23

但是里面有一个参数是初始化的矩形阿，难道不行的？

TYZhang · 2004-04-23

你没有初始化x,如果你的x(0,0),他就不会在ss(100,100,300,300)中。

Solid_Snake · 2004-04-23

初始化一下TPoint就可以了吗？ 帮我看看这片帖子好吗，真是谢谢了。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2577093

Solid_Snake · 2004-04-23

我的意思是想如果鼠标落在区域内就出发消息，否则不触发。

bundur · 2004-04-23

这是我的理解,不知对否 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); var   ss: TRect;   x1: TPoint; begin    with ss do   begin     top := 100;     left := 100;     right := 300;     bottom := 300;   end;   canvas.Rectangle(ss);   x1 := Point(X, Y);   if PtInRect(ss,x1) then     showmessage('szsd'); end;

Solid_Snake · 2004-04-23

我想请问一下bundur，在delphi里面TRect，TPoint都是win32结构类型，而rect，point都是delphi函数，我经常看到TRect,TPoint使用rect,pont函数进行初始化，请问它们之间有什莫必然的联系吗？ 不能直接对TRect，TPoint进行赋值？

happyjoe · 2004-04-23

鼠标的坐标好像是绝对坐标，是不是楼主在PtInRect时没有进行统一阿

Solid_Snake · 2004-04-23

bundur得方法是正确的，我在onclick里面写代码了，好像错了，能看看我最下面的那个问题吗，大家。

Solid_Snake · 2004-04-23

多人接受答案了。

如何判断一个点在一个区域内？(30分)

Solid_Snake

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

Solid_Snake

Unregistered / Unconfirmed

TYZhang

Unregistered / Unconfirmed

Solid_Snake

Unregistered / Unconfirmed

Solid_Snake

Unregistered / Unconfirmed

bundur

Unregistered / Unconfirmed

Solid_Snake

Unregistered / Unconfirmed

happyjoe

Unregistered / Unconfirmed

Solid_Snake

Unregistered / Unconfirmed

Solid_Snake

Unregistered / Unconfirmed

Similar threads