编程论坛 → Delphi论坛

求助一下变颜色的问题

无欢发布于 2006-04-18 19:46， 524 次点击

我在button1 的按钮上设置颜色比如 edit1.color :=clred 这样的话一次就变一个颜色

请问怎么能多变.... 还有谁有 delphi 的语句都什么意思的哪有可以给我一份吗

4 回复

ysp_19842006-04-18 23:05

button1不能设置颜色。你可以使用bitbtn。

无欢2006-04-19 09:45

不是啊我是在 edit1 上设置颜色 button1 只是一个按妞
我用的 if edit1.color = clred then
edit1.color:=clBackground
else edit1.color :=clred
这个 if 语句只能循环一次我想一直叫他循环变色这个只能2个色来回变
我想要更多的

无欢2006-04-24 09:21

我这问题还没解决顶上去

ysp_19842006-04-24 09:37

当然了,你用的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;

求助一下 变颜色的问题

求助一下变颜色的问题