TColorDialog组件用于显示选择颜色的对话框，当用户选择一个颜色并单击 OK 按钮后，所选颜色会被保存到 Color 属性中。
1、将”颜色“对话框中所选的颜色值应用到组件中示例：
ColorDialog1.Execute; Memo1.Text:= ColorToString(ColorDialog1.Color);//颜色值转换为字符串 Memo1.Color:= ColorDialog1.Color;//直接赋值
2、使用Create 方法动态创建颜色对话框
procedure TForm1.Button2Click(Sender: TObject); var colors: TColorDialog; begin colors:= TColorDialog.Create(Self); if Colors.Execute then begin Memo1.Color:= colors.Color; end; end;
3、Options属性下fdFullOpen为True时，完全展开颜色对话框。
原文：https://www.cnblogs.com/fansizhe/p/12784137.html