01]uniColorButton1
Palette属性添加自定义颜色若Palette 为空,则为系统自带颜色。
选择颜色后的事件
02]UniColorPalette1
Palette属性添加颜色.且颜色数量没有限制
选择颜色后的事件
01]uniColorButton相当于VCL的ColorDialog1
procedure TMainForm.UniColorButton1Select(Sender: TObject; Color: TColor); begin MainForm.Color:= UniColorButton1.Color; end;
颜色多了,可以鼠标中键上下移动翻页选择
02]UniColorPalette1
UniColorPalette1.Palette直接显示颜色块,,两个主要属性与uniColorButton类似
FF0000
00FF00
0000FF
procedure TMainForm.UniColorPalette1Select(Sender: TObject; Color: TColor); begin MainForm.Color:= UniColorPalette1.Color; end;
总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总是说我字少.总