diff --git a/src/ce_main.pas b/src/ce_main.pas
index 4b64faea..fadac7b5 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -26,11 +26,6 @@ type
 
   TCEApplicationOptions = class;
 
-  TAnchorDockSplitterEx = class(TAnchorDockSplitter)
-  public
-    property OnMouseWheel;
-  end;
-
   TAsyncWait = (awNo, awYes, awCustom);
 
   TRunnableToFolderCondition = (
@@ -1379,7 +1374,6 @@ begin
   accept := GetKeyShiftState = [ssCtrl];
 end;
 
-//TODO-cdocking: remove the usage of TAnchorDockSplitterEx from Laz 1.8 (OnMouseWheel public)
 procedure TCEMainForm.DockSplitterMw(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
 var
   offs: integer;
@@ -1415,10 +1409,10 @@ begin
         if site is TAnchorDockHostSite then
         begin
           if TAnchorDockHostSite(site).BoundSplitter.isNotNil then
-            TAnchorDockSplitterEx(TAnchorDockHostSite(site).BoundSplitter).OnMouseWheel:=@DockSplitterMw;
+            TAnchorDockHostSite(site).BoundSplitter.OnMouseWheel:= @DockSplitterMw;
         end
         else if site is TAnchorDockSplitter then
-          TAnchorDockSplitterEx(TAnchorDockSplitter(site)).OnMouseWheel:=@DockSplitterMw;
+          TAnchorDockSplitter(site).OnMouseWheel:= @DockSplitterMw;
       end;
   end;
 end;