01]uniColorButton1
     Palette属性添加自定义颜色若Palette 为空,则为系统自带颜色。
     选择颜色后的事件
02]UniColorPalette1
    Palette属性添加颜色.且颜色数量没有限制
    选择颜色后的事件


01]uniColorButton相当于VCL的ColorDialog1

若Palette 为空,则为系统自带颜色。

 

选择颜色后的事件

procedure TMainForm.UniColorButton1Select(Sender: TObject; Color: TColor);
begin
   MainForm.Color:= UniColorButton1.Color;
end;

颜色多了,可以鼠标中键上下移动翻页选择


02]UniColorPalette1

 UniColorPalette1.Palette直接显示颜色块,,两个主要属性与uniColorButton类似

 UniColorPalette1的颜色数量没有限制

FF0000
00FF00
0000FF

UniColorPalette1选择颜色后的事件

procedure TMainForm.UniColorPalette1Select(Sender: TObject; Color: TColor);
begin
  MainForm.Color:= UniColorPalette1.Color;
end;

 

总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总