diff --git a/lcl/forms.pp b/lcl/forms.pp
index 074df22927..863bb2528b 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -591,6 +591,7 @@ type
     procedure RemoveOnIdleEndHandler(AnOnIdleEndHandler: TNotifyEvent);
     procedure AddOnUserInputHandler(AnOnUserInputHandler: TOnUserInputEvent);
     procedure RemoveOnUserInputHandler(AnOnUserInputHandler: TOnUserInputEvent);
+    procedure DoBeforeMouseMessage(CurMouseControl: TControl);
   public
     property Exename: String read GetExeName;
     property Handle: THandle read FHandle;
diff --git a/lcl/lmessages.pp b/lcl/lmessages.pp
index fd3b07e82f..984d52bf93 100644
--- a/lcl/lmessages.pp
+++ b/lcl/lmessages.pp
@@ -332,9 +332,11 @@ const
   LM_MBUTTONQUADCLK = LM_USER+71;
   LM_RBUTTONTRIPLECLK = LM_USER+72;
   LM_RBUTTONQUADCLK = LM_USER+73;
+  LM_MOUSEENTER     = LM_USER+74;
+  LM_MOUSELEAVE     = LM_USER+75;
   LM_MOUSELAST2     = LM_RBUTTONQUADCLK;
 
-  LM_GRABFOCUS      = LM_USER+74;
+  LM_GRABFOCUS      = LM_USER+79;
 
   LM_DRAWLISTITEM   = LM_User+80;
   
@@ -882,6 +884,9 @@ end.
 
 {
   $Log$
+  Revision 1.39  2002/11/21 18:49:52  mattias
+  started OnMouseEnter and OnMouseLeave
+
   Revision 1.38  2002/10/25 10:42:08  lazarus
   MG: broke minor circles