diff --git a/components/tvplanit/source/vpdayview.pas b/components/tvplanit/source/vpdayview.pas
index f1eba1fae..8ff49d507 100644
--- a/components/tvplanit/source/vpdayview.pas
+++ b/components/tvplanit/source/vpdayview.pas
@@ -2107,6 +2107,7 @@ end;
 function TVpDayView.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
   MousePos: TPoint): Boolean;
 begin
+  EndEdit(self);
   Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
 end;