Перейти к содержанию
Fire Monkey от А до Я
  • 0

Можно ли прокрутить TScrollBox программно?


Alex Bozhko

Вопрос

Рекомендуемые сообщения

  • 0
  • Администраторы

Без анимации можно любым из этих способов:

// Установка координат окна просмотра (Левый верхний угол) 
ScrollBox.ViewportPosition := TPointF.Create(0,0);
ScrollBox1.ScrollTo(0, 0); // Аналог ViewportPosition
// Сдвиг на вектор
ScrollBox.ScrollBy(-10, -10);

С анимацией так:

procedure TForm3.FormCreate(Sender: TObject);
begin
  ScrollBox1.AniCalculations.Animation := True;
  ScrollBox1.AniCalculations.BoundsAnimation := True;
  ScrollBox1.AniCalculations.TouchTracking := [ttVertical, ttHorizontal];
end;

// Сам сдвиг
ScrollBox1.AniCalculations.MouseWheel(5, 10);
Изменено пользователем Brovin Yaroslav
Добавлена реализация с анимацией
Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
×
×
  • Создать...