anchor.diff:      property OnTabChangeQuery: TATTabChangeQueryEvent read FOnTabChangeQuery write FOnTabChangeQuery;
     end;
   
  +var
  +  cTabsMouseMinDistanceToDrag: integer = 10; //mouse must move >=N pixels to start drag-drop
  +  cTabsMouseMaxDistanceToClick: integer = 4; //if mouse moves during mouse-down >=N pixels, dont click
  +
  +
   implementation
   
   uses
  
positive.code:             begin
                EndDrag(false);
                DeleteTab(FTabIndexOver, true, true);
                Exit
              end;
            end;
          end;
  
negative.code: 
    if FMouseDown and FTabDragEnabled and (TabCount>0) then
    begin
      if (Abs(X-FMouseDownPnt.X)>cTabsMouseMinDistanceToDrag) or
         (Abs(Y-FMouseDownPnt.Y)>cTabsMouseMinDistanceToDrag) then
      begin
        FMouseDrag:= true;
        Screen.Cursor:= crDrag;
      end;
    end;
  
  