提示: 新建工程后, 添加 TColorBox、TColorListBox、TColorGrid、TButtonColor 四个控件, 分别双击它们建立默认事件, 然后贴入下面代码:
unit Unit1;
interface
uses
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.