timer控件(50)

我用timer控件让image中的文字闪烁了，现在希望闪烁两次后停止十秒，在闪烁两次，依次循环，请问怎么做啊

再加一个timer即可实现~~

定义一个整型全局变量， Count: Integer; 初始化为 Count := 0.在 timer 过程里：闪烁时不计数，计数时不闪烁。闪烁完开始十秒计数，计数结束清零，继续闪烁。假定 Timer的interval = 1000.if Count = 0 thenbegin if 闪烁次数 < 2 then begin 闪烁; Inc(闪烁次数); end else Inc(Count)endelsebegin if Count < 10 then Inc(Count) else Count := 0end;

对于你的思想我可以理解，但是实现不了，用的程序后，我改成如下：procedure TForm1.Timer2Timer(Sender: TObject); var Count,i: Integer;begincount:=0;i:=0;if Count = 0 thenbeginif i < 2 thenbegin ifimg1.Visible = truethen img1.Visible := false else img1.Visible := true; inc (i); end else inc (count) end else begin if Count < 10 then Inc(Count) else Count := 0end;end;end.开始我是这样的：ifimg1.Visible = truethen img1.Visible := false else img1.Visible := true;把TIMER得Interval设置成1000，运行后一秒钟闪烁一次，请指导

我是想这个TIMER一直在运行，怎么让他运行两秒又停止10秒，依次循环，谢谢

高手指导下啊

private { Private declarations } public end;var Form1: TForm1; f: File; count:integer;是不

变量一定要放在Timer外边，否者不就是每次重新定义重新初始化了