如何获取panel控件内的点坐标(全部分数不好意思了) ( 积分: 76 )

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #1

也就是在Panel的左上角为点(0,0)
设置屏幕可以用: GetCursorPos(P)来获取屏幕的点左上角,可以用 SetCursorPos(0,0)来设置左上角点的.

不知道Panel控件上,怎么处理比较简洁?就当Panel是一个屏幕

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #2

也就是在Panel的左上角为点(0,0)
设置屏幕可以用: GetCursorPos(P)来获取屏幕的点左上角,可以用 SetCursorPos(0,0)来设置左上角点的.

不知道Panel控件上,怎么处理比较简洁?就当Panel是一个屏幕

 

L

leadyli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #3

Panel不是有MouseMove事件嗎?直接在上面就可以獲取。不過它是一個監視事件，所以獲取一次要把鼠標指針移開。

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #4

MouseMove 怎么说呢,leadyli能细一点吗?

 

L

leadyli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #5

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
showmessage(IntToStr(x)+':'+IntToStr);
SetCursorPos(0,0)
end;

 

A

ak_2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #6

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage(IntToStr(x)+':'+IntToStr);
end;

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-23

• #7

请问,没有事件的可能吗?

 

M

MayRoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-25

• #8

见Delphi联机丛书中，如下：
P := TargetControl.[blue]ScreenToClient[/blue](SourceControl.[blue]ClientToScreen[/blue](P));
蓝色部分为相关的两个函数。作用是把坐标P从SourceControl转换到TargetControl上。

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-25

• #9

接受答案了.