如何实现“闪烁”字!!!

[leemingsong]

在Turbo C,Pascal编译器里很容易实现闪烁字，只要Color+BLINKY就行了，那在BCB，Delphi中如何实现呢？ 请教高手！！！

[Lionheart]

用TTimer,在时间到后，改变字体的颜色。

[Winsky]

假设你使用标签控件则
1、在窗体上放一个TTimer,并设置其定时间隔Interval为400毫秒，设其Enabled属性为true.
2、在Timer的OnTimer事件中写以下代码：
{
　　static bool Hilight = true;

　　if(Hilight)
Label1->Caption->Font->Color = RGB(255,255,255);
　　else
Label1->Caption->Font->Color = RGB(0,0,0);

　　Hilight = !Hilight;
}