小问题:如何实现label红黑间的闪动

Question

小问题:如何实现label红黑间的闪动

Answer 1

用timer控件控制颜色就可以了!

Answer 2

在timer的事件里写
if label.font.color=红 then
label.font.color:=黑 else label.font.color:=红

Answer 3

在timer的事件里写
if label.font.color=红 then
label.font.color:=clBlack else label.font.color:clRed

Answer 4

用timer控件控制颜色就可以了!

Answer 5

我是这样写的:
在timer里面:
if dbtext2.font.color=clMaroon then
     sleep(50);
     dbtext2.font.color:=clblack ;
     sleep(50);
     dbtext2.font.color:=clMaroon ;
     sleep(50);
     dbtext2.font.color:=clblack ;
     sleep(50);
     dbtext2.font.color:=clMaroon ;
但不能达到闪动的效果,应该怎么样?

Answer 6

if dbtext2.font.color=clMaroon then
  begin
     sleep(50);
     dbtext2.font.color:=clblack ;
     sleep(50);
     dbtext2.font.color:=clMaroon ;
     sleep(50);
     dbtext2.font.color:=clblack ;
     sleep(50);
     dbtext2.font.color:=clMaroon ;
  end;

Answer 7

一样不行;是不是要在程序里加一句:Timer1Timer(Sender);才能运行timer控件生效

Answer 8

function ChangeColor(Sender: TObject;timeval: integer): integer;
begin
   (Sender as TLabel).Font.Color := clred;
   Form1.Refresh;
   sleep(timeval);
   (Sender as TLabel).Font.color := clblue;
   Form1.Refresh;
   sleep(timeval);
   (sender as tlabel).Font.Color := clgreen;
   Form1.Refresh;
   sleep(timeval);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  changecolor(label1,1000);
  application.ProcessMessages;
end;Timer1的interval是3倍的timeval

Answer 9

var
  Form1: TForm1;
  i:integer;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i<=5 then
  begin
  if label1.Font.Color =clred then
    label1.Font.Color :=clblack
  else label1.Font.Color :=clred;
  end;
end;initialization;
i:=0;end.