uses GraphUtil;
procedure TForm1.FormCreate(Sender: TObject);
begin
with btn1 do
begin
BackgroundGradientColor := clNone; //背景渐变填充颜色
BackgroundGradientDirection := gdHorizontal; //背景渐变填充方向
BorderStyle := bsNone; //边框风格,设成无边框
ButtonFlow := cbfVertical; //类别按钮方向
ButtonHeight := 48; //类别里的按钮高
ButtonWidth := 48; //类别里的按钮宽
ButtonOptions := [
boAllowReorder, //允许用户在运行时可拖动按钮改变顺序
// boAllowCopyingButtons, //允许用户在运行时复制按钮
boFullSize, //设置按钮的最大宽度,达到整个容器的宽度
boGradientFill, //Color作为结束色渐变填充
boShowCaptions //开关按钮标题,类别的标题仍然显示
// boVerticalCategoryCaptions, //当一个类别展开后,此类别标题出现在垂直端
// boBoldCaptions, //类别标题加粗
// boUsePlusMinus, //使用+/-标志类别的展开和折叠,否则使用箭头标志
// boCaptionOnlyBorder //当类别标题折叠起来时,在按钮周围画边框
];
Color := clWhite; //背景色
GradientDirection := gdHorizontal; //前景渐变色填充方向
HotButtonColor := RGB(254,202,115); //按钮的热点颜色
Images := il1; //绑定TImageList
RegularButtonColor := RGB(196,218,241); //规则按钮的颜色
SelectedButtonColor := RGB(253,183,64); //选定按钮的颜色
with Categories.Add do
begin
Caption := ‘类别一’;
Color := $00FFEAFF; //类别背景色
GradientColor := $00FFEAFF; //此类别进行渐变填充,跟Color一样则不渐变
TextColor := clWindowText; //类别标题颜色
with Items.Add do
begin
Caption := ‘按钮一’;
ImageIndex := 0;
end;
with Items.Add do
begin
Caption := ‘按钮二’;
ImageIndex := 1;
end;
end;
with Categories.Add do
begin
Caption := ‘类别二’;
Color := clBlue;
GradientColor := clBlue; //此类别进行渐变填充
TextColor := clRed;
with Items.Add do
begin
Caption := ‘按钮三’;
ImageIndex := 2;
end;
end;
end;
end;
选择一项,属性F11,在选择item,添加item就可以了。
设置buttonOption相关属性,就符号习惯了
就行xp的控制面板做成按钮的风格
ButtonOptions := [
boAllowReorder, //允许用户在运行时可拖动按钮改变顺序
// boAllowCopyingButtons, //允许用户在运行时复制按钮
boFullSize, //设置按钮的最大宽度,达到整个容器的宽度
boGradientFill, //Color作为结束色渐变填充
boShowCaptions //开关按钮标题,类别的标题仍然显示
// boVerticalCategoryCaptions, //当一个类别展开后,此类别标题出现在垂直端
// boBoldCaptions, //类别标题加粗
// boUsePlusMinus, //使用+/-标志类别的展开和折叠,否则使用箭头标志
// boCaptionOnlyBorder //当类别标题折叠起来时,在按钮周围画边框
];