怎么让Shape控件的color属性每秒改变一次颜色（实现闪烁效果），让Shape控件闪烁也行。

放一個 Timer  元件，裡面寫如下的程式碼


[code delphi]
procedure TForm1.Timer1Timer(Sender: TObject);
var myColor: TColor;
begin
Shape1.Brush.Color := Random(myColor);
end;
[/code]

------
價值的展現，來自於你用哪一個角度來看待它!!

好像不对只能变黑，不能实现闪烁效果。不过我已经想到了，谢谢回复
[code delphi]
if Shape1.Brush.Color=clWhite then
shape1.Brush.Color:=clYellow
else shape1.Brush.Color:=clWhite;
[/code]