TButtonGroup显示在一个容器中的按钮组。使用TButtonGroup可以创建相关按钮集合。下面来学习使用这个控件，拖动Tool Palette面板的Additional类别下TButtonGroup控件到窗体上，控件截图如下所示：

        动态设置此控件属性和添加按钮项代码如下所示：

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  with btn1 do 
  begin 
    BorderStyle := bsNone; 
    ButtonHeight := 48; 
    ButtonWidth := 48; 
    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; 
        效果如下图所示：

        会不会想要修改按钮显示颜色、显示的效果等等，TButtonGroup并没有开放颜色属性，我们只有重载其 DrawButton函数，跟踪其源码，发现可以将其绘制函数复制过来，改为自己想要显示的效果即可，如下代码所示：
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ButtonGroup, ImgList, CategoryButtons; 
 
type 
  TForm1 = class(TForm) 
    btn1: TButtonGroup; 
    il1: TImageList;     
    procedure FormCreate(Sender: TObject); 
    procedure btn1DrawButton(Sender: TObject; Index: Integer; Canvas: TCanvas; 
      Rect: TRect; State: TButtonDrawState); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
uses GraphUtil; 
 
procedure TForm1.btn1DrawButton(Sender: TObject; Index: Integer; 
  Canvas: TCanvas; Rect: TRect; State: TButtonDrawState); 
var 
  TextLeft, TextTop: Integer; 
  RectHeight: Integer; 
  ImgTop: Integer; 
  TextOffset: Integer; 
  ButtonItem: TGrpButtonItem; 
  FillColor: TColor; 
  EdgeColor: TColor; 
  InsertIndication: TRect; 
  TextRect: TRect; 
  OrgRect: TRect; 
  Text: string; 
begin 
  OrgRect := Rect; 
  //------------------在这里修改了显示颜色--------------------- 
  Canvas.Font := (Sender as TButtonGroup).Font; 
  if bdsSelected in State then 
  begin 
    Canvas.Brush.Color := GetShadowColor(RGB(254,202,115), -25); 
    Canvas.Font.Color := RGB(108,72,2); 
  end 
  else if bdsDown in State then 
  begin 
    Canvas.Brush.Color := RGB(254,202,115); 
    Canvas.Font.Color := RGB(108,72,2); 
  end 
  else 
  begin 
    Canvas.Brush.Color := RGB(196,218,241); 
    Canvas.Font.Color := RGB(43,53,77); 
  end; 
  {if Assigned(FOnBeforeDrawButton) then               //在这里可以添加调用OnBeforeDrawButton 
    FOnBeforeDrawButton(Self, Index, Canvas, Rect, State);} 
 
  FillColor := Canvas.Brush.Color; 
  EdgeColor := GetShadowColor(FillColor, -25); 
  Canvas.FillRect(Rect); 
 
  InflateRect(Rect, -2, -1); 
 
  if (bdsHot in State) and not (bdsDown in State) then 
    EdgeColor := GetShadowColor(EdgeColor, -50); 
 
  { Draw the edge outline } 
  Canvas.Brush.Color := EdgeColor; 
  Canvas.FrameRect(Rect); 
  Canvas.Brush.Color := FillColor; 
 
  { Compute the text location } 
  TextLeft := Rect.Left + 4; 
  RectHeight := Rect.Bottom - Rect.Top; 
   TextTop := Rect.Top + (RectHeight - Canvas.TextHeight('Wg')) div 2; { Do not localize } 
  if TextTop < Rect.Top then 
    TextTop := Rect.Top; 
  if bdsDown in State then 
  begin 
    Inc(TextTop); 
    Inc(TextLeft); 
  end; 
 
  ButtonItem := (Sender as TButtonGroup).Items[Index]; 
  { Draw the icon - prefer the event } 
  TextOffset := 0; 
  {if Assigned(FOnDrawIcon) then                                //在这里可以添加调用OnDrawIcon 
    FOnDrawIcon(Self, Index, Canvas, OrgRect, State, TextOffset) 
  else }if ((Sender as TButtonGroup).Images <> nil) and (ButtonItem.ImageIndex > -1) and 
      (ButtonItem.ImageIndex < (Sender as TButtonGroup).Images.Count) then 
  begin 
    ImgTop := Rect.Top + (RectHeight - (Sender as TButtonGroup).Images.Height) div 2; 
    if ImgTop < Rect.Top then 
      ImgTop := Rect.Top; 
    if bdsDown in State then 
      Inc(ImgTop); 
    (Sender as TButtonGroup).Images.Draw(Canvas, TextLeft - 1, ImgTop, ButtonItem.ImageIndex); 
    TextOffset := (Sender as TButtonGroup).Images.Width + 1; 
  end; 
 
  { Show insert indications } 
  if [bdsInsertLeft, bdsInsertTop, bdsInsertRight, bdsInsertBottom] * State <> [] then 
  begin 
    Canvas.Brush.Color := GetShadowColor(EdgeColor); 
    InsertIndication := Rect; 
    if bdsInsertLeft in State then 
    begin 
      Dec(InsertIndication.Left, 2); 
      InsertIndication.Right := InsertIndication.Left + 2; 
    end 
    else if bdsInsertTop in State then 
    begin 
      Dec(InsertIndication.Top); 
      InsertIndication.Bottom := InsertIndication.Top + 2; 
    end 
    else if bdsInsertRight in State then 
    begin 
      Inc(InsertIndication.Right, 2); 
      InsertIndication.Left := InsertIndication.Right - 2; 
    end 
    else if bdsInsertBottom in State then 
    begin 
      Inc(InsertIndication.Bottom); 
      InsertIndication.Top := InsertIndication.Bottom - 2; 
    end; 
    Canvas.FillRect(InsertIndication); 
    Canvas.Brush.Color := FillColor; 
  end; 
 
  if gboShowCaptions in (Sender as TButtonGroup).ButtonOptions then 
  begin 
    { Avoid clipping the image } 
    Inc(TextLeft, TextOffset); 
    TextRect.Left := TextLeft; 
    TextRect.Right := Rect.Right - 1; 
    TextRect.Top := TextTop; 
    TextRect.Bottom := Rect.Bottom -1; 
    Text := ButtonItem.Caption; 
    Canvas.TextRect(TextRect, Text, [tfEndEllipsis]); 
  end; 
 
  if bdsFocused in State then 
  begin 
    { Draw the focus rect } 
    InflateRect(Rect, -2, -2); 
    Canvas.DrawFocusRect(Rect); 
  end; 
  {if Assigned(FOnAfterDrawButton) then                //在这里可以添加调用OnAfterDrawButton 
    FOnAfterDrawButton(Self, Index, Canvas, OrgRect, State);  } 
end; 
        运行效果如下图所示：

        看了DrawButton源码，可以知道，我们也可以添加 OnBeforeDrawButton事件，即可快速改变TButtonGroup的显示颜色，代码如下所示：
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
procedure TForm1.btn1BeforeDrawButton(Sender: TObject; Index: Integer; 
  Canvas: TCanvas; Rect: TRect; State: TButtonDrawState); 
begin 
  if bdsSelected in State then 
  begin 
    Canvas.Brush.Color := GetShadowColor(RGB(254,202,115), -25); 
    Canvas.Font.Color := RGB(108,72,2); 
  end 
  else if bdsDown in State then 
  begin 
    Canvas.Brush.Color := RGB(254,202,115); 
    Canvas.Font.Color := RGB(108,72,2); 
  end 
  else 
  begin 
    Canvas.Brush.Color := RGB(196,218,241); 
    Canvas.Font.Color := RGB(43,53,77); 
  end; 
end; 

扩展资料：
1.VCL Controls: Button Groups http://www.functionx.com/cppbuilder/controls/buttongroup.htm
2.This example demonstrates how to use a TButtonGroup.  http://docwiki.embarcadero.com/CodeExamples/XE2/en/VCLButtons%28Delphi%29

Logo
向您推荐>>Eolink开发者社区

权威｜前沿｜技术｜干货｜国内首个API全生命周期开发者社区

更多推荐

ELK实现containerd的容器日志采集展示【基于logging的全栈监测】

企业级ELK Stack构建介绍

avatar 云原生

深入理解 Mocha 测试框架：从零实现一个 Mocha

前言什么是自动化测试自动化测试在很多团队中都是Devops环节中很难执行起来的一个环节，主要原因在于测试代码的编写工作很难抽象，99%的场景都需要和业务强绑定，而且写测试代码的编写工作量往往比编写实际业务代码的工作量更多。在一些很多业务场景中投入产出比很低，适合写自动化测试的应该是那些中长期业务以及一些诸如组件一样的基础库。自动化测试是个比较大的概念，其中分类也比较多，比如单元测试，端对端测试，集

avatar 云原生

(20200916 Solved)docker-compose up创建容器自动退出

问题描述如题，创建容器后自动退出了。并且docker start container无效解决方案原因是缺失了控制终端的配置，需要在docker-compose.yml中增加tty:true ，有时候这样也不行，需要再增加一个command:/bin/bash，命令不一定是这个，需要是一个不会退出的命令，然后用-d后台启动容器。Referencesdocker-compose启动容器后自动退出...

avatar 云原生