Вообщем сделал так -
1.Записываю в переменную текущую позицию .
2. Потом делаю
scrollbox1.ScrollInView(TImage(FindComponent('im'+ inttostr(i)))
3.Записываю новое положение в другую переменную .
4.Восстанавливаю позицию из первой переменной.
5.Далее делаю плавную прокрутку.
Но назревает вопрос . У меня не заметно что происходит до 5го пункта .
Но на слабом компьютере возможно будет заметны пункты 2 и 4 .
Поэтому хотелось бы как-то по другому реализовать .
|