diff --git a/lcl/include/tabsheet.inc b/lcl/include/tabsheet.inc
index b448a0e114..f20ebe7638 100644
--- a/lcl/include/tabsheet.inc
+++ b/lcl/include/tabsheet.inc
@@ -53,6 +53,7 @@ end;
 
 class procedure TTabSheet.WSRegisterClass;
 begin
+  RegisterPropertyToSkip(TTabSheet, 'Visible', 'Use TabVisible instead.', '');
   inherited WSRegisterClass;
   RegisterTabSheet;
 end;