BrowserTabPopupMenu.Tag := idx;
BrowserTabPopupMenu.Popup(p2.X, p2.Y);
end;
- {end else if BUtton = mbLeft then begin
+ end else if BUtton = mbLeft then begin
FDragWFirst := true;
- }
- end;
+ end;
end;
TabIdx := BrowserTab.IndexOfTabAt(x, y);
- if ( ssLeft in Shift )then begin
+ if ( ssLeft in Shift ) and ( BrowserTab.Style = tsTabs ) then begin
if FDragWFirst = false then begin
- // FDragWFirst := true;
- end else begin{
- BrowserTab.EndDrag(false);
- BrowserTab.BeginDrag(false, DandD_THRESHOLD);
- FDragWFirst := false;
- }end;
+ FDragWFirst := true;
end else begin
- {
BrowserTab.EndDrag(false);
+ BrowserTab.BeginDrag(false, DandD_THRESHOLD);
FDragWFirst := false;
- }
end;
+ end else begin
+ BrowserTab.EndDrag(false);
+ FDragWFirst := false;
+ end;
if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin
Application.CancelHint;