如何获取鼠标位置(相对于panel控件)(50分)

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #1

谢谢，不是相对于窗体

 

L

linsb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-07

• #2

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
StatusBar1.Panels[0].text:=IntToStr(x);
StatusBar1.Panels[1].text:=IntToStr;
end;

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #3

不能用,请高手

 

C

chinapig

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #4

用鼠标值减一下panel值计算一下

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #5

做个线程去跟踪，用 GetCursorPos, ScreenToClient API 函数

 

网

网络男孩

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #6

linsb说得应该没错的啊(如果在PANEL里面）.

 

S

SupermanTm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-25

• #7

linsb兄的方法有个问题，如果这个PANEL上又有其他控件的时候，TForm1.Panel1MouseMove
事件就不会发生