delphi - 如何将字符串转换为 TColor 值？

Question

我正在创建一个 Delphi 表单，并希望在运行时为其分配背景颜色。这段代码：

Form1.Color := clSkyBlue; 

效果很好。我的问题是我已将颜色名称作为字符串存储在表格中。因此，当我从表中获取颜色名称并将其分配给 时Form1.Color，上述语句变为：

var
  ColorName: string;
....
Form1.Color := ColorName;

这会导致编译时错误。

如何将字符串转换为TColor值？

Answer 1

您可以使用以下转换函数（均适用于颜色常量）：

• 该StringToColor函数用于将颜色的字符串表示形式转换为TColor值
• ColorToString当您需要将TColor值转换为字符串表示时使用的函数

在您的情况下，您需要使用以下StringToColor功能：

Form1.Color := StringToColor('clSkyBlue');