ButtonOptions := [gboAllowReorder, //允许用户在运行时可拖动按钮改变顺序
gboFullSize, //设置组中按钮的最大宽度,整个容器的宽度
gboGroupStyle, //按钮应该继承容器组风格
gboShowCaptions]; //在项中的按钮显示Captions标题
Images := il1; //绑定 TImageList
ShowHint := True; //可以显示Hint
with Items.Add do
begin
Caption := ‘按钮一’;
Hint := ‘这是按钮一’;
ImageIndex := 0;
end;
with Items.Add do
begin
Caption := ‘按钮二’;
Hint := ‘这是按钮二’;
ImageIndex := 1;
end;
ItemIndex := 0;
end;
end;
TButtonOptions
最新推荐文章于 2021-03-06 21:33:35 发布