Mobile Firemonkey - Animate Listbox (fly left)

Question

Я использую Delphi XE5 для создания мобильного приложения Delphi Firemonkey.

Есть ли способ сделать весь список летать слева при выборе предмета с детьми?

Я хотел бы, чтобы пользователь выбирал элемент списка, и если у элемента есть дети (есть код для проверки этого), то удалите текущий список элементов/родителей (вылетайте влево) и замените их на список избранных элементов детей (продолжайте это до тех пор, пока не будет детей).

Answer 1

из покинул

Listbox1.AnimateFloat('Position.x', -ListBox1.Width, 1.0); 

в правой

Listbox1.AnimateFloat('Position.x', 0, 1.0); 

Первый параметр является строковым представлением свойства вы анимировать во второй параметр представляет новое значение, которое вы хотите, чтобы свойство анимировалось до , третьим параметром является продолжительность

Надеюсь, это поможет!

Answer 2

Вы можете использовать TTabControl.

procedure TMyForm.lvStationsItemClick(const Sender: TObject; 
    const AItem: TListViewItem); 
begin 
    MyTabControl.SetActiveTabWithTransition(DetailTab, TTabTransition.ttSlide, TTabTransitionDirection.tdNormal); 
end; 

Если вы хотите получить больше контроля над эффектом прокрутки (и гладкой прокрутки), посмотрите на мой TTabControlEx компонента из FireMonkey Extensions библиотеки. Ваш код будет выглядеть примерно так:

procedure TMyForm.lvStationsItemClick(const Sender: TObject; 
    const AItem: TListViewItem); 
begin 
    MyTabControl.SetActiveTabWithTransitionEx(tabStationDetails, TTabTransitionDirection.tdNormal, TInterpolationType.itCubic, 0.2, 1, TAnimationType.atIn); 
end;