将TColor转换为COLORREF

Question

delphi是否有RTL函数将TColor转换为COLORREF，如果不能将TColor转换为COLORREF？

Answer 1

检查Graphics.ColorToRGB功能。

  

将TColor值转换为RGB   表示颜色。

     

调用ColorToRGB以获取RGB   用于表示颜色   使用Windows API调用。 ColorToRGB   去掉那些信息   存储在最高位的位   哪个调色板用于颜色   并不总是可用。

Answer 2

使用ColorToRGB。

Answer 3

TColor和COLORREF都是32位整数，因此无需转换。