How to create fade in and fade out effects for TLabel in Delphi

StackOverflow https://stackoverflow.com/questions/21841105

  •  13-10-2022
  •  | 
  •  

Question

When a user click on label, it changes its color for some milliseconds and then returns to its previous color.

How to simulate this effect in Delphi?

Was it helpful?

Solution

One way would be set the font color when you click the item. Then start a TTimer:

Label.Font.Color := <insert your highlight color>;
TimerEffects.Enabled := true;

When the timer fires do something like this:

TimerEffects.Enabled := false;
Label.Font.Color := clBLack; // whatever color you want to set the label back to
Licensed under: CC-BY-SA with attribution
Not affiliated with StackOverflow
scroll top