BCB闪烁效果,该如何解决
BCB闪烁效果
怎么做成像红绿灯那样的效果呢,用啥控件,提示一下?
------解决方案--------------------
timer换图片。
------解决方案--------------------
一个或两个TImage,再加一个TTimer足矣。
------解决方案--------------------
使用TShape吧!
Timer1Timer
{
Shape1->Brush->Color = Timer1->Tag ? clRed : clGreen;
Timer1->Tag = !Timer1->Tag;
}
怎么做成像红绿灯那样的效果呢,用啥控件,提示一下?
------解决方案--------------------
timer换图片。
------解决方案--------------------
一个或两个TImage,再加一个TTimer足矣。
------解决方案--------------------
使用TShape吧!
Timer1Timer
{
Shape1->Brush->Color = Timer1->Tag ? clRed : clGreen;
Timer1->Tag = !Timer1->Tag;
}