为什么用这方法得不到鼠标的屏幕坐标？(100分)

g_feng · 2002-08-01

procedure TForm1.FormCreate(Sender: TObject); begin   Application.OnMessage := AppMessage; end; procedure TForm1.AppMessage(var msg:TMsg;var handled:Boolean); var xpos: integer;     ypos: integer;     MousePos: TPoint; begin    if (Msg.message = WM_MouseMove) then    begin      MousePos.X := LOWORD(msg.lParam);      Mousepos.Y := HIWORD(msg.lParam);      windows.ClientToScreen(msg.hwnd,MousePos);      Label1.Caption := inttostr(MousePos.X);      label2.Caption := inttostr(Mousepos.Y);    end; end; 以上程序为得不到鼠标的屏幕坐标？

plaw · 2002-08-01

我测试你你的代码，可以用呀。你是不是没有讲FormCreate事件与相应的方法关联？

smallbs · 2002-08-02

确实可以用的，你谦虚了，哈哈）

Nizvoo · 2002-08-02

您要什么效果先？？？？？？？ 做什么啊~~~~

testnet · 2002-08-02

屏幕是指form还是screen

leotoe · 2002-08-03

[purple]我也得不到，得到的坐标是错误![/purple]

leotoe · 2002-08-03

[blue]直接用getcursorpos就可以得到当前的坐标！[/blue]

leotoe · 2002-08-04

[gold]在onmousemove事件里，Label1.Caption := inttostr(Mouse。cursorpos.X);      label2.Caption := inttostr(Mouse。cursorpos.Y); 就可以动态的显示鼠标的当前坐标！[/gold]

leotoe · 2002-08-04

[blue]缺点是只能得到onmousemove事件所属的控件范围内[/blue]

ljsh2008 · 2002-08-04

同plaw

rockjie · 2002-08-07

是你没用鼠标HOOK的缘故吧！[

]

g_feng · 2002-08-21

看来的确是这样，我在Form里得到的只是发到这个Form里的消息，所以当鼠标在外面时我只能 用hook才能控制，但DELPHI的自带消息cm_MouseLeave和cm_MouseEnter是根据什么原理产生的呢？

AvidMouse · 2002-08-21

var p:Tpoint ; begin   GetCursorPos(p);   Label1.Caption := IntToStr(p.X);   Label2.Caption := IntToStr(p.y); end;

g_feng · 2002-08-22

多人接受答案了。

为什么用这方法得不到鼠标的屏幕坐标？(100分)

g_feng

Unregistered / Unconfirmed

plaw

Unregistered / Unconfirmed

smallbs

Unregistered / Unconfirmed

Nizvoo

Unregistered / Unconfirmed

testnet

Unregistered / Unconfirmed

leotoe

Unregistered / Unconfirmed

leotoe

Unregistered / Unconfirmed

leotoe

Unregistered / Unconfirmed

leotoe

Unregistered / Unconfirmed

ljsh2008

Unregistered / Unconfirmed

rockjie

Unregistered / Unconfirmed

g_feng

Unregistered / Unconfirmed

AvidMouse

Unregistered / Unconfirmed

g_feng

Unregistered / Unconfirmed

Similar threads