diff --git a/designer/designer.pp b/designer/designer.pp
index 8c0fa1133b..58af4a7f0a 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -2941,7 +2941,10 @@ begin
         LM_MOVE:        Result:=MoveControl(Sender, TLMMove(TheMessage));
         LM_ACTIVATE: begin
           {$IFDEF VerboseComponentPalette}
-          DebugLn('TDesigner.IsDesignMsg: Got LM_ACTIVATE message.');
+          DebugLn(['TDesigner.IsDesignMsg: Got LM_ACTIVATE message.',
+                   ' Message.Active=',TLMActivate(TheMessage).Active,
+                   ', calling DoFormActivated(',TLMActivate(TheMessage).Active=WA_ACTIVE,')'
+                  ]);
           {$ENDIF}
           Result:=DoFormActivated(TLMActivate(TheMessage).Active=WA_ACTIVE);
         end;