一行代碼設定顏色的控制項

本例:

提示: 建立工程後, 添加 TColorBox、TColorListBox、TColorGrid、TButtonColor 四個控制項, 分別雙擊它們建立預設事件, 然後貼入下面代碼:

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ColorGrd, StdCtrls, TeCanvas, ExtCtrls;type  TForm1 = class(TForm)    ColorBox1: TColorBox;    ColorListBox1: TColorListBox;    ColorGrid1: TColorGrid;    ButtonColor1: TButtonColor;    procedure ColorListBox1Click(Sender: TObject);    procedure ColorBox1Change(Sender: TObject);    procedure ColorGrid1Change(Sender: TObject);    procedure ButtonColor1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ColorListBox1Click(Sender: TObject);begin  Self.Color := ColorListBox1.Selected;end;procedure TForm1.ColorBox1Change(Sender: TObject);begin  Self.Color := ColorBox1.Selected;end;procedure TForm1.ColorGrid1Change(Sender: TObject);begin  Self.Color := ColorGrid1.ForegroundColor;end;procedure TForm1.ButtonColor1Click(Sender: TObject);begin  Self.Color := ButtonColor1.SymbolColor;end;end.