如何用timer实现Tedit的闪烁!在线等待!(50分)

I

ifillbad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #1

如何用time实现tedit的闪烁!
如下代码不行!
form1.timer1timer(sender);
begin
timer1.interval:=1000;
edit1.color:=clmenuhighlight;
end;
form1.button1click(sender);
begin
edit1.color:=clwindow;
timer1.enable:=true;
timer1timer(sender);
timer1.enable:=false;
end;

 

I

ifillbad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #2

ding...

 

K

kukuasir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #3

form1.timer1timer(sender);
begin
timer1.interval:=1000;
if edit1.color=clmenuhighlight then
edit1.color:=clblack
else
edit1.color:=clmenuhighlight;
end;

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #4

form1.button1click(sender);
begin
edit1.color:=clwindow;
timer1.enable:=true;
//timer1timer(sender);//去掉
timer1.enable:=false;
end;

 

I

ifillbad

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #5

谢谢！

 

H

hlyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #6

很好做的啊:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.interval:=1000;
if edit1.color=clgreen then //判断一下就可以闪了
edit1.Color:=clwindow
else
edit1.Color:=clgreen;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.color:=clwindow;
timer1.Enabled:=not timer1.Enabled //可以控制它闪还是不闪,乒乓开关.
end;