怎么自定义各个界面或控件的颜色 ( 积分: 100 )

在选取颜色时，觉得delphi自带的颜色选报太少了，看到喜欢的颜色不能使用，怎么样自定义颜色。

在选取颜色时，觉得delphi自带的颜色选报太少了，看到喜欢的颜色不能使用，怎么样自定义颜色。

TColorDialog

同意楼上，用TColorDialog可以自己设置颜色，任意

To sg_lhz,
我的QQ;82780254
Form的颜色 可以输入 一个整数来改变颜色

有没有TColorDialog这方面的应用实例

关键是设置TColorBox的Style，关键是cbCustomColor，就可以自定义了，看我的窗体文件和代码
object Form1: TForm1
Left = 192
Top = 107
Width = 286
Height = 208
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ColorBox1: TColorBox
Left = 64
Top = 60
Width = 145
Height = 22
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor]
ItemHeight = 16
TabOrder = 0
OnChange = ColorBox1Change
end
end

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
ColorBox1: TColorBox;
procedure ColorBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
Form1.Color := ColorBox1.Selected;
end;

end.

对着 Color 内容选项双击就可以使用自定义颜色了，或复制粘贴，自己赋值等。。

TColorDialog控件在 Dialog页，使用按照
if ColorDialog1.Execute then //Execute打开，之后确定返回Ture，取消返回False
Panel1.Color := ColorDialog1.Color;
这样的形式使用。

D7 的ColorBox可以这样做，就可以自定义颜色：
ColorBox1.Style := [cbStandardColors,cbExtendedColors,cbSystemColors,cbCustomColor];
ColorBox1.ItemIndex := 0;

多人接受答案了。