delphi richedit 颜色变化
当richedit值>label时显示红色反之为绿色下面的语句有什么问题吗为什么没有反应try//ifrichedit1.Text=''thenrichedit1.Col...
当 richedit值>label 时显示 红色 反之为绿色
下面的语句有什么问题吗 为什么 没有反应
try
//if richedit1.Text='' then richedit1.Color := clWindow;
if strtofloat(richedit1.Text)>strtofloat(Label6.Caption) then
richedit1.Color := clRed
else
richedit1.Color := clgreen;
except
Edit1.Color := clWindow;
end; 展开
下面的语句有什么问题吗 为什么 没有反应
try
//if richedit1.Text='' then richedit1.Color := clWindow;
if strtofloat(richedit1.Text)>strtofloat(Label6.Caption) then
richedit1.Color := clRed
else
richedit1.Color := clgreen;
except
Edit1.Color := clWindow;
end; 展开
展开全部
你这个过程说明:
如果富文本(RichEdit )的内容转化为实数 大于 Label6 所表现的数,那么富文本的颜色为红色,不然为绿色,如果出现错误,Edit1文本的颜色为 Windows 的缺省值。
如果富文本(RichEdit )的内容转化为实数 大于 Label6 所表现的数,那么富文本的颜色为红色,不然为绿色,如果出现错误,Edit1文本的颜色为 Windows 的缺省值。
微测检测5.10
2023-05-10 广告
2023-05-10 广告
您好!建议咨 深圳市微测检测有限公司,已建立起十余个专业实验室,企业通过微测检测就可以获得一站式的测试与认 证解决方案;(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量),认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询