如何取得color的值 onLine...

armylau 2002-09-01 12:30:56
现想取得一Tcolor对象的值,如clRed等,并用showMessage()显示出来,请问如何实现?在线等待
...全文
39 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
Liujc 2002-09-01
  • 打赏
  • 举报
回复
颜色->字串
ColorToString
sleeepboy 2002-09-01
  • 打赏
  • 举报
回复
TColor其实不是一个对象
它就是一个数值
强制转化成Integer就可以了
cmain83 2002-09-01
  • 打赏
  • 举报
回复
同上一位
ehom 2002-09-01
  • 打赏
  • 举报
回复
R := Color and $ff;
G := (Color and $ff00) shr 8;
B := (Color and $ff0000) shr 16;

IntToHex(R,2)//转16进制,其它类似!

clRed和TColor数值是什么关系!你在上面按下 Ctrl+鼠标左键 就会明白!
searoom 2002-09-01
  • 打赏
  • 举报
回复
同意 Liujc(阿聪)

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧