如何判断鼠标已经移到屏幕的边界，注意：是屏幕的边界，不是Form的边界。

[xlem]

如何判断鼠标已经移到屏幕的边界，注意：是屏幕的边界，不是Form的边界。

[项目花园范德彪]

answer,api

[icuc88]

Delphi 有个交
Screen的东西

[Apollo47]

WM_MouseMove

[xzm2000]

var
procedure CursorPos()
Pos : TPoint;
begin
GetCursorPos(Pos);
if Pos.x = 0 then showmessage('left');
if Pos.x > Screen.Width - 2 then showmessage('right');
if Pos.y = 0 then showmessage('top');
if pos.y > Screen.Height - 2 then showmessage('bottom');
end;
给分，兄弟，我这是第一次在delphi版回答问题呀

[xzm2000]

上面的写错了哈，应该是
procedure CursorPos()
var
Pos : TPoint;
begin
GetCursorPos(Pos);
if Pos.x = 0 then showmessage('left');
if Pos.x > Screen.Width - 2 then showmessage('right');
if Pos.y = 0 then showmessage('top');
if pos.y > Screen.Height - 2 then showmessage('bottom');
end;

[xinglong]

Screen.Height
Screen.Width

[xlem]

谢谢xzm2000(不是云)，告诉我如何给分给你，我不知如何给

[xlem]

[beyond_ml]

Delphi里有个mouse的对象！！具体怎么用，自己看帮助吧！

[xzm2000]

点一下管理，然后就可以看到输入框了，加分就可以了，哈哈，我还没有得过分