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

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?

Answer 1

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