diff --git a/components/virtualtreeview/virtualtrees.pas b/components/virtualtreeview/virtualtrees.pas
index 28812ee7d..a7cdd02ff 100644
--- a/components/virtualtreeview/virtualtrees.pas
+++ b/components/virtualtreeview/virtualtrees.pas
@@ -13321,10 +13321,12 @@ const
 var
   ScrollCount: Integer;
   ScrollLines: Integer;
-
+  State: TShiftState;
 begin
   StopWheelPanning;
 
+  State := KeysToShiftState(Message.Button);
+
   //inherited;
 
 //  if Message.Result = 0  then