请问如果可以响应鼠标离开form的事件？(100分)

bestyi · 2003-05-01

请问如果可以响应鼠标离开form的事件？

LiChaoHui · 2003-05-01

根本就没有这样的事件

小笨苯 · 2003-05-01

这种问题已经提过很多次了，总结来看有两种方法比较有效， 1.用Timer不断检测 2.用鼠标钩子 需要源码，说一声

来如风 · 2003-05-01

记得有个消息就是鼠标是否在客户区移动的， 你找吧

爱元元的哥哥 · 2003-05-01

SetCapture啊，可以追踪到鼠标的 要么用WindowFromPoint获取句柄，然后判断！

小笨苯 · 2003-05-01

来如风： 你说的消息应该是CM_MOUSEENTER和CM_MOUSELEAVE吧，效果不好！不信你看看这个帖子， http://www.delphibbs.com/delphibbs/dispq.asp?lid=367914 还是我上面说的那两种方法好，关键是因为它在不断的检测，不会有意外情况发生。

wang_phoenix · 2003-05-01

楼上说得瞒有道理的，用消息是有点问题，特别是在窗口边时。   用其它的两种办法没有试过，关注！！

LiChaoHui · 2003-05-01

可是菜单好像能追踪鼠标离开窗口的消息，它也没有用定时器， 有谁知道，它是怎么做的

zjan521 · 2003-05-01

菜单肯定是SetCapture的

bestyi · 2003-05-03

小笨笨 我想要源码。

小笨苯 · 2003-05-03

bestyi： 下面是鼠标钩子及调用的源码 //鼠标钩子DLL的工程文件 {                                                                         } { This is the core of the system and task hook.  Some notes:              } {                                                                         } {  1)  You will definitely want to give the file a more descriptive name  } {      to avoid possible collisions with other DLL names.                 } {  2)  Edit the MouseHookCallBack function to do what you need when a     } {      mouse message is received.  If you are hooking something other     } {      mouse messages, see the SetWindowsHookEx topic in the help for the } {      proper WH_xxxx constant, and any notes about the particular type   } {      of hook.                                                           } {  3)  If an application that uses the DLL crashes while the hook is      } {      installed, all manner of wierd things can happen, depending on the } {      sort of thing you are doing in the callback.  The best suggestion  } {      is to use a utility that displays loaded DLLs and forcibly unload  } {      the DLL.  You could also write a simple app that checks to see if  } {      the DLL is loaded, and if so, call FreeModule until it returns 0.  } {  4)  If you make changes to the DLL but the changes don't seem to be    } {      working, you may have the DLL already loaded in memory.  Remember, } {      loading a DLL that is already in memory just increments a usage    } {      count in Windows and uses the already loaded copy.                 } {  5)  Remember when you are hooking in at the *system* level, your       } {      callback function is being called for everything in the OS.  Try   } {      to keep the processing in the callback as tight and fast as you    } {      possibly can.                                                      } {  6)  Be careful of the uses clause.  If you include stuff like Dialogs, } {      you will end up linking in a lot of the VCL, and have a DLL that   } {      comes out compiled to around 250k.  You would probably be better   } {      served using WM_USER messages to communicate with the application. } {  7)  I have successfully hooked mouse messages without the use of a     } {      DLL, but many of the hooks say they require the callback to be in  } {      a DLL, so I am hesitant to include this method.  It certainly      } {      makes the build/test cycle *much* easier, but since it is not      } {      "sanctioned" by MS, I would stay away from it and discourage it.   } {  8)  Remember that 32-bit processes can only load 32-bit DLLs, and      } {      16-bit processes can only load 16-bit DLLs.  That means that if    } {      you set a system hook and your DLL is compiled under Delphi 1,     } {      only 16-bit processes are going to fire the system hook.  So, if   } {      it were running on a Windows 98 machine, not much of anything      } {      is going to fire your "system" hook.                               } {                                                                         } library HookDLL; uses WinTypes, WinProcs, Messages; { Global variables } {$IFDEF WIN32} { For a system-wide hook, global variables must be Memory Mapped to be   accessible by all processes because the data segment of 32-bit DLL is private   to each process using it. } type   PSharedData = ^TSharedData;   TSharedData = record     { In this record, mirror the global variables of the 16-bit version }     HookCount: integer;     HookHandle: HHook;     MonitorWnd: HWND;     WM_MONITORMOUSEMOVE: UINT;   end; var   { global data for the DLL for a single process }   hMapObject: THandle;   SharedData: PSharedData; {$ELSE} { 16 bit Windows } type   UINT = Longint; var   HookCount: integer;   HookHandle: HHook;   MonitorWnd: HWND;   WM_MONITORMOUSEMOVE: UINT; {$ENDIF} const   MESSAGE_MONITOR_MOUSE_MOVE = 'DFSHookDLLMonitorMouseMoveMessage'; function GetMonitorMouseMoveMsg: UINT; export; begin   {$IFDEF WIN32}   if SharedData = NIL then     Result := 0   else     Result := SharedData^.WM_MONITORMOUSEMOVE;   {$ELSE}   Result := WM_MONITORMOUSEMOVE;   {$ENDIF} end; { This is where you do your special processing. } {$IFDEF WIN32} function MouseHookCallBack(Code: integer; Msg: WPARAM; MouseHook: LPARAM): LRESULT; stdcall; {$ELSE} function MouseHookCallBack(Code: integer; Msg: word; MouseHook: longint): longint; export; {$ENDIF} var   {$IFDEF WIN32}   HookHandle: HHOOK;   MonitorWnd: HWND;   WM_MONITORMOUSEMOVE: UINT;   {$ENDIF}   MouseHookStruct: PMouseHookStruct absolute MouseHook; begin   {$IFDEF WIN32}   { Access the shared data. Do check if SharedData is assigned, because under     some circumstances the hook filter can be called after all processes have     detached }   if SharedData <> NIL then   begin     MonitorWnd := SharedData^.MonitorWnd;     HookHandle := SharedData^.HookHandle;     WM_MONITORMOUSEMOVE := SharedData^.WM_MONITORMOUSEMOVE;   end   else   begin     WM_MONITORMOUSEMOVE := 0;     MonitorWnd := 0;     HookHandle := 0; { It seems that this handle is not used in the CallNextHookEx                        function anyway. Several sources on the microsoft web site                        indicate this. }   end;   {$ENDIF}   { If the value of Code is less than 0, we are not allowed to do anything }   { except pass it on to the next hook procedure immediately.              }   if (Code >= 0) and (MonitorWnd <> 0) then   begin     { This example sends the coordinates of all mouse move messages to the       monitoring app (the one that installed the hook). }     if (Msg = WM_MOUSEMOVE) and (MouseHookStruct <> NIL) then       PostMessage(MonitorWnd, WM_MONITORMOUSEMOVE, MouseHookStruct^.pt.x,         MouseHookStruct^.pt.y);     { You could do any number of things here based on the different mouse       messages...     case Msg of:       WM_LBUTTONDOWN:         begin         end;       WM_LBUTTONUP:         begin         end;       WM_LBUTTONDBLCLK:         begin         end;       WM_RBUTTONDOWN:         begin         end;       WM_RBUTTONUP:         begin         end;       WM_RBUTTONDBLCLK:         begin         end;       WM_MBUTTONDOWN:         begin         end;       WM_MBUTTONUP:         begin         end;       WM_MBUTTONDBLCLK:         begin         end;       WM_MOUSEMOVE:         begin         end;     end;}     { If you handled the situation, and don't want Windows to process the }     { message, do *NOT* execute the next line.  Be very sure this is what }     { want, though.  If you don't pass on stuff like WM_MOUSEMOVE, you    }     { will NOT like the results you get.                                  }     Result := CallNextHookEx(HookHandle, Code, Msg, MouseHook);   end   else     Result := CallNextHookEx(HookHandle, Code, Msg, MouseHook); end; { Call InstallHook to set the hook. } function InstallHook(SystemHook: boolean; TaskHandle: THandle;   AMonitorWnd: HWND) : boolean; export;   { This is really silly, but that's the way it goes.  The only way to get the  }   { module handle, *not* instance, is from the filename.  The Microsoft example }   { just hard-codes the DLL filename.  I think this is a little bit better.     }   function GetModuleHandleFromInstance: THandle;   var     s: array[0..512] of char;   begin     { Find the DLL filename from the instance value. }     GetModuleFileName(hInstance, s, sizeof(s)-1);     { Find the handle from the filename. }     Result := GetModuleHandle(s);   end; begin   { Technically, this procedure could do nothing but call SetWindowsHookEx(),  }   { but it is probably better to be sure about things, and not set the hook    }   { more than once.  You definitely don't want your callback being called more }   { than once per message, do you?                                             }   {$IFDEF WIN32}   Result := FALSE;   if SharedData = NIL then     exit   else     with SharedData^ do     begin   {$ENDIF}       Result := TRUE;       if HookCount = 0 then       begin         MonitorWnd := AMonitorWnd;         if SystemHook then           HookHandle := SetWindowsHookEx(WH_MOUSE, MouseHookCallBack, HInstance, 0)         else           { See the Microsoft KnowledgeBase, PSS ID Number: Q92659, for a             discussion of the Windows bug that requires GetModuleHandle() to be             used.                 }           HookHandle := SetWindowsHookEx(WH_MOUSE, MouseHookCallBack,                                          GetModuleHandleFromInstance, TaskHandle);         if HookHandle <> 0 then           inc(HookCount)         else           Result := FALSE;       end       else         inc(HookCount);   {$IFDEF WIN32}     end;   {$ENDIF} end; { Call RemoveHook to remove the system hook. } function RemoveHook: boolean; export; begin   { See if our reference count is down to 0, and if so then unhook. }   Result := FALSE;   {$IFDEF WIN32}   if SharedData = NIL then     exit   else     with SharedData^ do     begin   {$ENDIF}       if HookCount < 1 then exit;       Result := TRUE;       dec(HookCount);       if HookCount = 0 then         Result := UnhookWindowsHookEx(HookHandle);   {$IFDEF WIN32}     end;   {$ENDIF} end; { Have we hooked into the system? } function IsHookSet: boolean; export; begin   {$IFDEF WIN32}   if SharedData = NIL then     Result := FALSE   else     with SharedData^ do   {$ENDIF}       Result := (HookCount > 0) and (HookHandle <> 0); end; {$IFDEF WIN32} { Shared data management } procedure AllocSharedData; var   Init: boolean; begin   if hMapObject = 0 then   begin     // Create a named file mapping object.     hMapObject := CreateFileMapping(       THandle($FFFFFFFF),  // use paging file       NIL,                 // no security attributes       PAGE_READWRITE,      // read/write access       0,                   // size: high 32-bits       SizeOf(TSharedData), // size: low 32-bits       'DFSHookDLLSharedDataBlock'); // name of map object, THIS MUST BE UNIQUE!     // The first process to attach initializes memory.     Init := GetLastError <> ERROR_ALREADY_EXISTS;     if hMapObject = 0 then exit;     // Get a pointer to the file-mapped shared memory.     SharedData := MapViewOfFile(       hMapObject,     // object to map view of       FILE_MAP_WRITE, // read/write access       0,              // high offset:  map from       0,              // low offset:   beginning       0);             // default: map entire file     if SharedData = NIL then exit;     // Initialize memory if this is the first process.     if Init then       FillChar(SharedData^, SizeOf(TSharedData), 0);     SharedData^.WM_MONITORMOUSEMOVE := RegisterWindowMessage(       MESSAGE_MONITOR_MOUSE_MOVE);   end; end; procedure FreeSharedData; begin   if hMapObject <> 0 then     try       try         UnMapViewOfFile(SharedData);         CloseHandle(hMapObject);       except       end;     finally       SharedData := NIL;       hMapObject := 0;     end; end; procedure EntryPointProc(Reason: Integer); begin   case Reason of     DLL_PROCESS_DETACH: FreeSharedData;     DLL_PROCESS_ATTACH: AllocSharedData;     DLL_THREAD_ATTACH: {} ;     DLL_THREAD_DETACH: {} ;   end; end; {$ENDIF} exports   GetMonitorMouseMoveMsg,   InstallHook,   RemoveHook,   IsHookSet,   MouseHookCallBack; { Initialize DLL data. } begin   {$IFDEF WIN32}   SharedData := NIL;   hMapObject := 0;   DllProc := @EntryPointProc;   EntryPointProc(DLL_PROCESS_ATTACH); // Must call manually in the Delphi world   {$ELSE}   HookCount := 0;   HookHandle := 0;   WM_MONITORMOUSEMOVE := RegisterWindowMessage(MESSAGE_MONITOR_MOUSE_MOVE);   {$ENDIF} end. //鼠标钩子的输出函数单元 { This is a simple DLL import unit to give us access to the functions in } { the HOOKDLL.PAS file.  This is the unit your project will use.         } unit Hookunit; interface uses WinTypes; {$IFNDEF WIN32} type   UINT = Longint; {$ENDIF} function GetMonitorMouseMoveMsg: UINT; function InstallSystemHook(AMonitorWnd: HWND): boolean; function InstallTaskHook(AMonitorWnd: HWND): boolean; function RemoveHook: boolean; function IsHookSet: boolean; { Do not use InstallHook directly.  Use InstallSystemHook or InstallTaskHook. } function InstallHook(SystemHook: boolean; TaskHandle: THandle;   AMonitorWnd: HWND): boolean; implementation uses WinProcs; const   {$IFDEF WIN32}   HOOK_DLL = 'HOOKDLL.DLL';   {$ELSE}   HOOK_DLL = 'HOOKDLL';   {$ENDIF} function GetMonitorMouseMoveMsg: UINT; external HOOK_DLL; function InstallHook(SystemHook: boolean; TaskHandle: THandle;   AMonitorWnd: HWND): boolean; external HOOK_DLL; function RemoveHook: boolean; external HOOK_DLL; function IsHookSet: boolean; external HOOK_DLL; function InstallSystemHook(AMonitorWnd: HWND): boolean; begin   Result := InstallHook(TRUE, 0, AMonitorWnd); end; function InstallTaskHook(AMonitorWnd: HWND): boolean; begin   Result := InstallHook(FALSE,               {$IFDEF WIN32}               GetCurrentThreadID,               {$ELSE}               GetCurrentTask,               {$ENDIF}               AMonitorWnd             &nbsp

; end; end. //使用鼠标钩子的主程序单元 unit Main; interface uses   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,   Forms, Dialogs, StdCtrls, HookUnit; type   THookForm = class(TForm)     SysHookBtn: TButton;     RemoveHookBtn: TButton;     TaskHookBtn: TButton;     lblMousePos: TLabel;     procedure FormCreate(Sender: TObject);     procedure SysHookBtnClick(Sender: TObject);     procedure RemoveHookBtnClick(Sender: TObject);     procedure TaskHookBtnClick(Sender: TObject);     procedure FormDestroy(Sender: TObject);   protected     procedure WndProc(var Message: TMessage); override;     procedure UpdateButtons;     procedure UpdateMousePosInfo(X, Y: integer);   end; var   HookForm: THookForm; implementation {$R *.DFM} procedure THookForm.FormCreate(Sender: TObject); begin   UpdateButtons; end; procedure THookForm.FormDestroy(Sender: TObject); begin   while IsHookSet do     RemoveHook; { Make sure we unhook ourselves. } end; procedure THookForm.SysHookBtnClick(Sender: TObject); begin   if not InstallSystemHook(Handle) then     ShowMessage('Could not install mouse hook.  SetWindowsHookEx() failed.');   UpdateButtons; end; procedure THookForm.TaskHookBtnClick(Sender: TObject); begin   if not InstallTaskHook(Handle) then     ShowMessage('Could not install task hook.  SetWindowsHookEx() failed.');   UpdateButtons; end; procedure THookForm.RemoveHookBtnClick(Sender: TObject); begin   if IsHookSet then     RemoveHook;   UpdateButtons; end; procedure THookForm.UpdateButtons; begin   SysHookBtn.Enabled := not IsHookSet;   TaskHookBtn.Enabled := not IsHookSet;   RemoveHookBtn.Enabled := IsHookSet;   if not IsHookSet then     lblMousePos.Caption := 'Hook not set'; end; procedure THookForm.WndProc(var Message: TMessage); begin   if Message.Msg = GetMonitorMouseMoveMsg then     UpdateMousePosInfo(Message.WParam, Message.LParam)   else     inherited WndProc(Message); end; procedure THookForm.UpdateMousePosInfo(X, Y: integer); begin   lblMousePos.Caption := Format('X = %d, Y = %d', [X, Y]); end; end.

sunshinebbs · 2003-08-07

var cur:tpoint;rct:trect; begin GetCursorPos(cur);//得到鼠标的当前位置 GetWindowRect(Handle,rct);//得到窗口的区域 if not PtInRect(rct,cur) then//判断鼠标是否在窗口里 begin ...... end;

请问如果可以响应鼠标离开form的事件？(100分)

bestyi

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

爱元元的哥哥

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

wang_phoenix

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

bestyi

Unregistered / Unconfirmed

小笨苯

Unregistered / Unconfirmed

sunshinebbs

Unregistered / Unconfirmed

Similar threads