diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc
index a593ab2541..8ae2e56cbf 100644
--- a/lcl/include/wincontrol.inc
+++ b/lcl/include/wincontrol.inc
@@ -6095,6 +6095,8 @@ begin
     Params.ExStyle := Params.ExStyle or WS_EX_CLIENTEDGE;
   if TabStop then
     Params.Style := Params.Style or WS_TABSTOP;
+  if not IsEnabled then
+    Params.Style := Params.Style or WS_DISABLED;
 
   if (Parent <> nil) then
     Params.WndParent := Parent.Handle