如何在Delphi中为TLabel创建淡入和淡出效果

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