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