TFloatAnimation Как сделать эффект вспышки для контрола, когда он подсвечивается на короткий диапазон времени?

[97mik]

Как сделать эффект вспышки? То есть чтобы например Panel переходила из Opasity=0 в Opasity=1 и потом обратно, за 500мс..

[Brovin Yaroslav]

1. Повесить анимацию TFloatAnimation на свойство Opacity
2. Установить длительность анимации в 500 мс. Duration = 0.5
3. Задать начальное и конечное значения в 0 и 1. StartValue = 0, StopValue = 1.
4. И поставить галку TFloatANimation.AutoReverse для анимации.

Ну и вызывать анимацию вручную в нужный момент времени. Перед каждым вызовом анимации задавать Inverse в True.

[97mik]

Как её повесить на свойство Opasity?

[Brovin Yaroslav]

Как её повесить на свойство Opasity?

 

[97mik]

Когда StopValue = 1 не работает, а при 100 работает. Но только появляется и не гаснет, галка AutoReverse стоит.

[Brovin Yaroslav]

Когда StopValue = 1 не работает, а при 100 работает. Но только появляется и не гаснет, галка AutoReverse стоит.

 

Работает. Duration указывается в секундах, Поэтому для 500 миллисекунд

Duration := 0,5

[97mik]

Почему-то при первом вызове FloatAnimation1.Start анимация идёт от 0 к 1 и опять к 0, а следующий раз от 1 к 0 и к 1, и так чередуется.

[Brovin Yaroslav]

Перед вызовом анимации сбросьте флаг Inverse:

FloatAnimation1.Inverse := False;
FloatAnimation1.Start;