diff --git a/examples/openglcontrol/exampleform.pp b/examples/openglcontrol/exampleform.pp
index 226d1496f9..f6f701f9e0 100644
--- a/examples/openglcontrol/exampleform.pp
+++ b/examples/openglcontrol/exampleform.pp
@@ -402,8 +402,14 @@ end;
 
 procedure TExampleForm.IdleFunc(Sender: TObject; var Done: Boolean);
 begin
+  {$IFDEF LCLQT}
+  // the QT backend currently uses a hack, which does not work together with the
+  // QT painting mechanism. You have to "paint" outside the paint message:
+  {$NOTE Remove this when the TOpenGLControl backend for QT uses the QT way of using OpenGL}
+  OpenGLControl1Paint(Self);
+  {$ELSE}
   OpenGLControl1.Invalidate;
-  //OpenGLControl1Paint(Self);
+  {$ENDIF}
   Done:=false; // tell lcl to handle messages and return immediatly
 end;