diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas
index 197734a7b2..0b1a348297 100644
--- a/ide/etmessageframe.pas
+++ b/ide/etmessageframe.pas
@@ -2416,6 +2416,7 @@ begin
   for u:=Low(TMessageLineUrgency) to high(TMessageLineUrgency) do
     fUrgencyStyles[u]:=TMsgCtrlUrgencyStyle.Create(Self,u);
   ShowHint:=true;
+  DoubleBuffered:=true;
 end;
 
 destructor TMessagesCtrl.Destroy;