当然了,你用的button1的click事件 单击按钮只能执行一次你可以用Timer控件每隔一定的时间响应一次.procedure Tform1.Timer1timer(sender:Tobject);begin if edit1.color = clred then edit1.color:=clBackground else if edit1.color =clBackground then edit1.color:=clred;end;