@@ -386,7 +386,7 @@ var
PrevPage: Integer;
begin
inherited;
- if (not FIsMove) and FStartDrag then
+ if (not FIsMove) and (FStartDrag or not IsCanDrag) then
if FIsTimer then
FTimer.Enabled := True;