如何将字符串转换为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');