如何将MOUSE固定在一个位置不能动了,就是控制用户不让其操作MOUSE? 先GetClipCursor保存当前设置再ClipCursor设置新区域,这区域可以成为一个点(你的目的)最后是党的时候ClipCursor恢复原来的数值 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果是这样的话MOUSE是可以动的啊 var arect:Trect;begin arect.Left:=255; arect.Top:=255; arect.Right:=255; arect.Bottom:=255; clipcursor(@arect);不过,还是会有一点儿颤动!只能做到这里了! 在WIN2K下不幸啊我设置在0,800那里但是当DBCLICK就失效了WHY 不会失效呀! 你是说的dblclick吗? 我试了, 没有呀! 我知道是为什么了。 因为你的窗口没有800那么高呀。 clipcursor是不能将鼠标锁定在窗口范围之外的。 gototop99(巴蒂) 、{用消息处理不就行了吗,把鼠标消息屏蔽掉。 }具体怎么做了 用简单的消息做不到,只能用hook procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin setCursorPos(left + 100, top + 100);end;但非常快地移动鼠标,可将鼠标移到窗体外;另外,我也试了用拦截消息的办法,代码如下,但总是拦截不到,大家知道怎么回事吗?var Form1: TForm1; OldWndProc: TFNWndProc;implementation{$R *.DFM}function NewWndProc(window: hwnd; amessage: integer; wparam, lparam: longint): longint; stdcall; export;begin result := 0; if amessage <> WM_MOUSEMOVE then result := CallWindowProc(OldWndProc, window, amessage, wParam, lParam) else form1.Caption := 'Mouse Move';end;initialization OldWndProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(@NewWndProc))); Setwindowlong(Application.handle, GWL_WNDPROC, Longint(@NewWndProc));finalization if OldWndProc <> nil then SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(OldWndProc));end. 求DELPHI变成的短信猫收发代码 越详细越好 包括控件或者DLL文件什么的 请教关于DELPHI编写GPRS服务程序的问题。 动态链接SQL数据库的问题??? 数据库与文件的问题 最近手头有点紧,想找点兼职做做 怎么往slqserver的blob型字段中保存和读取文件。 怎样实现多线程操作 你们讲的《Delphi 5开发人员指南》是哪一本?!138元的那本么? 如何分离字符串??紧急!!!!!!!!!! 怎样知道一个string中包含另一个string :delphi6中自定义属性编辑器所遇到的问题... 几个问题想和大家交流一下!
MOUSE是可以动的啊
arect:Trect;
begin
arect.Left:=255;
arect.Top:=255;
arect.Right:=255;
arect.Bottom:=255;
clipcursor(@arect);不过,还是会有一点儿颤动!只能做到这里了!
我设置在0,800那里
但是
当DBCLICK就失效了
WHY
具体怎么做了
Y: Integer);
begin
setCursorPos(left + 100, top + 100);
end;但非常快地移动鼠标,可将鼠标移到窗体外;另外,我也试了用拦截消息的办法,代码如下,但总是拦截不到,大家知道怎么回事吗?var
Form1: TForm1;
OldWndProc: TFNWndProc;implementation{$R *.DFM}function NewWndProc(window: hwnd; amessage: integer; wparam, lparam: longint): longint; stdcall; export;
begin
result := 0;
if amessage <> WM_MOUSEMOVE then
result := CallWindowProc(OldWndProc, window, amessage, wParam, lParam)
else
form1.Caption := 'Mouse Move';
end;initialization
OldWndProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(@NewWndProc)));
Setwindowlong(Application.handle, GWL_WNDPROC, Longint(@NewWndProc));finalization
if OldWndProc <> nil then
SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(OldWndProc));
end.