随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

本例效果图:



提示: 新建工程后, 添加 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.

posted on 2008-04-27 22:42  万一  阅读(...)  评论(...编辑  收藏