0 Пользователей и 1 Гость просматривают эту тему.
Ничего не понял, что именно нужно достичь?
procedure Execute(var State: Integer);var G1: TComponent; begin G1 := FindObject('Group1'); // Group1 - Нужная группа case State of 0: begin G1.Set('Animation', 'tgaSlideRightToLeft'); // Анимация появления 2-го контейнера группы end; 1: begin G1.Set('Animation', 'tgaSlideLeftToRight'); // Анимация появления 1-го контейнера группы end; end;end;
Можно решить проблему добавив скрипт, который будет менять анимацию.Пример скрипта:Код: [Выделить]procedure Execute(var State: Integer);var G1: TComponent; begin G1 := FindObject('Group1'); // Group1 - Нужная группа case State of 0: begin G1.Set('Animation', 'tgaSlideRightToLeft'); // Анимация появления 2-го контейнера группы end; 1: begin G1.Set('Animation', 'tgaSlideLeftToRight'); // Анимация появления 1-го контейнера группы end; end;end;Также смотри проект во вложении.