Fix LM_LM_LBUTTONDOWN message called twice

salvadorbs · Jan 10, 2024 · fde7697 · fde7697
1 parent 027d4bd
commit fde7697
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Source/VirtualTrees.BaseTree.pas b/Source/VirtualTrees.BaseTree.pas
@@ -16771,7 +16771,8 @@ procedure TBaseVirtualTree.WndProc(var Message: TLMessage);
     if not (csDesigning in ComponentState) and
        ((Message.Msg = LM_LBUTTONDOWN) or (Message.Msg = LM_LBUTTONDBLCLK)) then
     begin
-      if (DragMode = dmAutomatic) and (DragKind = dkDrag) then
+      Handled := (DragMode = dmAutomatic) and (DragKind = dkDrag);
+      if Handled then
       begin
         if not IsControlMouseMsg(TLMMouse(Message)) then
         begin