标题:求助一下 变颜色的问题
只看楼主
无欢
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-4-15
 问题点数:0 回复次数:4 
求助一下 变颜色的问题
我在button1 的按钮上设置颜色 比如 edit1.color :=clred 这样的话一次就变一个颜色

请问 怎么能多变.... 还有 谁有 delphi 的语句 都什么意思的 哪有可以给我一份吗
搜索更多相关主题的帖子: 颜色 delphi clred 语句 
2006-04-18 19:46
ysp_1984
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:371
专家分:0
注 册:2006-1-5
得分:0 
button1不能设置颜色 。你可以使用bitbtn。

心中的那片蓝天,永远为你而存在... ...
2006-04-18 23:05
无欢
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-4-15
得分:0 
不是啊 我是在 edit1 上设置颜色 button1 只是一个按妞
我用的 if edit1.color = clred then
edit1.color:=clBackground
else edit1.color :=clred
这个 if 语句 只能循环 一次 我想一直叫他循环 变色 这个只能2个色来回变
我想要更多的

工具只是外壳 技术才是灵魂
2006-04-19 09:45
无欢
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-4-15
得分:0 
我这问题还没解决 顶上去

工具只是外壳 技术才是灵魂
2006-04-24 09:21
ysp_1984
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:371
专家分:0
注 册:2006-1-5
得分:0 

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


心中的那片蓝天,永远为你而存在... ...
2006-04-24 09:37



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-58407-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.053072 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved