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

[Alex Bozhko]

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

Спасибо.

[Brovin Yaroslav]

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

// Установка координат окна просмотра (Левый верхний угол) 
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);

Изменено 23 мая, 2014 пользователем Brovin Yaroslav
Добавлена реализация с анимацией