文字列とカラー値(TColor)を相互変換する

Delphiで文字列とTColorを相互変換するには以下の関数を使うと便利。

文字列からTColorへ

StringToColor(String文字列)

文字列は$00FF00FFのようなカラー値のほか、clRedのようなカラー定数でもOK。

使い方：
フォームにTShape、TButtonを1つずつ置く。
TButtonのOnClickに以下の構文を書く。

Shape1.Brush.Color := StringToColor($00FF00FF);

これでShape1が明るい紫色になる。

TColorから文字列へ

ColorToString(TColor)

使い方：
フォームにTShape、TButtonを1つずつ置く。
TButtonのOnClickに以下の構文を書く。

Button1.Caption := ColorToString(Shape1.Brush.Color);

これでButton1のキャプションがカラーコードになる。