VCL组件的属性和方法详解 -- TCommonDialog

TCommonDialog
继承关系：
TCommonDialog--TColorDialog

Color属性 
对应对象：TColorDialog
声明：property Color:TColor default clBlack;
功能：Color属性用来确定在颜色对话框中选择哪一个颜色。当用户选择了一个新的颜色时，Color属性将被设置为新颜色的值。
例子：

//Change the color of the selected text when the user choose a
//color from the Color dialog box
procedure TForm1.sbColorClick(Sender: TObject);
begin
 Colordialog1.Execute;
 RichEdit1.SelAttributes.Color:=Colordialog1.Color;
End;

CustomColors属性 
对应对象：TColorDialog
声明：property CustomColors:TStrings;
功能：CustomColors属性确定在颜色对话框中可以获得的一种自定义的颜色。CustomColors属性保存了一个字符串的列表，每一个字符串的格式是：ColorX=HexValue，其中ColorX是16个自定义的颜色中的一个，是从ColorA到ColorP，HexValue参数是一个十六进制的数值，它说明了构成颜色的所对应的RGB值。所以，对应于纯白色这个值是FFFFFF，000000是纯黑，使用Color0＝000000 说明了把纯黑色传递给颜色选择。当颜色对话框被关闭时，保存了对话框颜色的列表，以便用户可以在下一次使用对话框时使用自定义颜色。
例子：

procedure TForm1.sbColorClick(Sender: TObject);
var X:Integer;
begin
   Colordialog1.CustomColers:= StrCustomColors;
   Colordialog1.Execute;
   RichEdit1.SelAttributes.Color:=Colordialog1.Color;
   StrCustomColors:=Colordialog1.CustomColors;
  //Save StrCustomColors to the registry or an INI file
 //when the program exits…
end;

Options属性
对应对象：TColorDialog
声明： TColorDialogOption = (cdFullOpen, cdPreventFullOpen, cdShowHelp, cdSolidColor,cdAnyColor);
 TColorDialogOptions = set of TColorDialogOption;
 property Options: TcolorDialogOptions  default[];
功能：Options属性说明了颜色对话框的显示形式和选项。
以下列举了有效的选项值。

选 项 值 / 意  义

cdFullOpen / 当颜色对话框被打开时显示了定制颜色的选项。

cdPreventFullOpen /  使在对话框中的定义定制的颜色成为不可用，所以便用者不能定义新的颜色。

cdShowHelp / 在对话框之中添加一个帮助按钮。

cdSolidColor / 指引系统使用最近的纯颜色的选择。

cdAnyColor / 允许使用者选择非纯的颜色(可以被近似的抖动)

缺省时所有的选项是被关闭的。
例子：

procedure TForm1.FormCreate(Sender: TObject);
begin
 ColorDialog1.Options:=[ cdFullOpen, cdShowHelp];
end;

OnClose事件 
对应对象：TColorDialog
声明：property OnClose:TNotifyEvent;
功能：当一个对话框被关闭时，OnClose事件被引发。当对话框关闭时写入一个OnClose事件的句柄来完成指定的操作。