diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp
index 648538efd2..800b0dda57 100644
--- a/lcl/dbctrls.pp
+++ b/lcl/dbctrls.pp
@@ -874,6 +874,7 @@ type
     class function GetControlClassDefaultSize: TPoint; override;
     procedure BeginUpdateButtons; virtual;
     procedure EndUpdateButtons; virtual;
+    procedure SetEnabled(Value: Boolean); override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;