diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index bd918ea406..5819757243 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -1609,6 +1609,7 @@ begin
     end;
   end;
 
+  //debugln(['TControl.WndProc ',DbgSName(Self),' ',TheMessage.Msg]);
   if TheMessage.Msg=LM_PAINT then begin
     Include(FControlFlags,cfProcessingWMPaint);
     try
diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index fab13c3ad4..692d31fa12 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -5089,6 +5089,7 @@ procedure TWinControl.WndProc(var Message: TLMessage);
 var
   Form: TCustomForm;
 begin
+  //debugln(['TWinControl.WndProc ',DbgSName(Self),' ',Message.Msg]);
 //  Assert(False, Format('Trace:[TWinControl.WndPRoc] %s(%s) --> Message = %d', [ClassName, Name, Message.Msg]));
   case Message.Msg of
     LM_SETFOCUS:
diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc
index 9784327a97..329a76fee9 100644
--- a/lcl/interfaces/gtk2/gtk2widgetset.inc
+++ b/lcl/interfaces/gtk2/gtk2widgetset.inc
@@ -2385,6 +2385,7 @@ begin
         fMessageQueue.UnLock;
       end;
 
+      //debugln(['TGtk2WidgetSet.AppProcessMessages ',vlMsg^.Message,' ',LM_CHAR,' ',dbgsname(GetLCLObject(Pointer(vlMsg^.hwnd)))]);
       // Send message
       try
         with vlMsg^ do SendMessage(hWND, Message, WParam, LParam);
diff --git a/lcl/interfaces/gtk2/gtk2winapi.inc b/lcl/interfaces/gtk2/gtk2winapi.inc
index 3c4352b0b3..c02b51995e 100644
--- a/lcl/interfaces/gtk2/gtk2winapi.inc
+++ b/lcl/interfaces/gtk2/gtk2winapi.inc
@@ -6706,6 +6706,7 @@ var
 begin
   Result := True;
 
+  //debugln(['TGtk2WidgetSet.PostMessage ',dbgsname(GetLCLObject(Pointer(Handle)))]);
   New(AMessage);
   FillByte(AMessage^,SizeOf(TMsg),0);
   AMessage^.HWnd := Handle; // this is normally the main gtk widget