diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index 9582063bb0..b91f983481 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -1166,6 +1166,7 @@ Begin
           and (not lWinControl.ClientRectNeedsInterfaceUpdate) then
             exit;
           lWinControl.InvalidateClientRectCache(true);
+          lWinControl.DoAdjustClientRectChange;
         end;
         OverlayWindow := GetWindowInfo(Window)^.Overlay;
         if OverlayWindow <> 0 then
@@ -1482,6 +1483,9 @@ end;
 
 {
   $Log$
+  Revision 1.171  2004/12/15 17:51:16  micha
+  fix clientrect size on show form with menu (lazarus ide, component palette height too great)
+
   Revision 1.170  2004/12/01 22:38:36  vincents
   fixed error, when more than one timer was disabled in a timer callback.
 
diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 6b2df6ea3e..f0ad533a8f 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -425,8 +425,6 @@ begin
   begin
     AWinControl := TWinControl(AMenu.Owner);
     Windows.SetMenu(AWinControl.Handle, AMenu.Handle);
-    // inform LCL of changed client size
-    AWinControl.DoAdjustClientRectChange;
   end;
 end;
 
@@ -711,6 +709,9 @@ end;
 
 {
   $Log$
+  Revision 1.300  2004/12/15 17:51:16  micha
+  fix clientrect size on show form with menu (lazarus ide, component palette height too great)
+
   Revision 1.299  2004/11/04 16:57:32  micha
   remove obsolete and unused method twin32widgetset.settext