【搞定】如何将十六进制颜色值转化为颜色？**

ht88th

用户提供给开发人员一个颜色串 FFFFFFF，要求我们按照他的要求显示颜色，怕用户以后又要求我们用其它颜色，为灵活起见，我想用以下函数，将用户提供的十六进制颜色串转化为颜色值，请问如何做？

//根据颜色设置值(FFFFFFF)将其转化为颜色值
static function TComColor.ToColor(AHexString: string): TColor;
begin
  Result := 0; // '$' + AHexString;  
  //后面的直接相加显然是不行的，请问要如何返回？
end;

linjiawei

Html中的RGB相当于平台中的BGR

function HtmlToColor(AColor: String):TColor;
var
  lColor:TColor;
begin
  lColor := SysUtils.StrToInt('$'+AColor);
  lColor := RGB(GetBValue(lColor),GetGValue(lColor),GetRValue(lColor));
  Result := Graphics.ColorToRGB(lColor);
end;

twins_tony

procedure TForm1.Button2Click(Sender: TObject);
var
  color : TColor;
begin
  color := strtoint('$FFFFFFF');
  form1.Color := color;
end;

twins_tony

由于楼主长时间没有反馈，这个帖子先结帖了。有问题再开帖沟通