PtInRect怎么错了？？？(20分)

M

mingtoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #1

GetCursorPos(pt);
if PtInRect(ClientRect, pt) then
ShowMessage('hah');

怎么老不showmessage????

 

H

hhnick

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
pt : Tpoint;
begin
GetCursorPos(pt);
if PtInRect(ClientRect, pt) then
ShowMessage('hah');
end;
这是我写的，没有问题呀。

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #3

自己写一个不就完了。
function PointInRect(const P: TPoint; const R: TRect): Boolean;
begin
with R do
Result := (Left <= P.X) and (Top <= P.Y) and
(Right >= P.X) and (Bottom >= P.Y);
end;

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #4

我试过没问题的呀，你怎么用的？

 

A

amli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #5

R := ClientRect;
R.TopLeft := ClientToScreen(R.TopLeft);
R.BottomRight := ClientToScreen(R.BottomRight);

 

T

tianyusharp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #6

没有问题

 

M

mingtoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-01

• #7

我是派生了一个TPanel,想在进入这个panel时画图，但 发现showmessage不行。