delphi - Windows.GetRValue 接受基数，但 TColor 是整数

Question

我需要将颜色传递给接受基数的 GetRValue。但是，TColor 是整数，有时会出现范围检查错误。如果颜色为负值，我是否应该将其修剪为 0？

Answer 1

负值表示您正在将 clWindow 等特殊颜色值传递给 GetRValue。这是一个错误。您需要先调用ColorToRGB才能转换为真正的RGB值。存储在 32 位整数中的真实 RGB 值永远不会为负。

R := GetRValue(ColorToRGB(Color));

另一种解释是您将 ARGB 值放入 TColor 中。这也是一个错误，因为 TColor 不包含 Alpha channel 。