如何放大TCheckBox控件的复选框区域？

TCheckBox原生没有直接调整复选框大小的属性，下面提供几种可行的实现方案：

方案1：启用自绘（OwnerDraw）快速实现 #

这是无需重写控件的简便方法，步骤如下：

• 将控件的OwnerDraw属性设为True
• 绑定OnDrawItem事件，手动绘制复选框和文本：

procedure TForm1.CheckBox1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; State: TOwnerDrawState);
var
  CheckBoxRect: TRect;
  CheckSize: Integer;
begin
  // 自定义复选框大小，这里按字体大小的1.2倍计算，也可以直接设固定值比如50
  CheckSize := Round(CheckBox1.Font.Size * 1.2);
  // 计算复选框位置，保持垂直居中
  CheckBoxRect := Rect(ARect.Left + 4, ARect.Top + (ARect.Height - CheckSize) div 2,
    ARect.Left + 4 + CheckSize, ARect.Top + (ARect.Height - CheckSize) div 2 + CheckSize);

  // 绘制复选框边框和背景
  ACanvas.Brush.Color := clWhite;
  ACanvas.Rectangle(CheckBoxRect);
  // 选中状态下绘制勾选标记
  if odSelected in State then
  begin
    ACanvas.Pen.Color := clNavy;
    ACanvas.Pen.Width := 3;
    ACanvas.MoveTo(CheckBoxRect.Left + 3, CheckBoxRect.Top + CheckSize div 2);
    ACanvas.LineTo(CheckBoxRect.Left + CheckSize div 2, CheckBoxRect.Bottom - 3);
    ACanvas.LineTo(CheckBoxRect.Right - 3, CheckBoxRect.Top + 3);
  end;

  // 绘制文本，偏移复选框位置保证间距
  ACanvas.Font := CheckBox1.Font;
  ACanvas.Brush.Color := CheckBox1.Color;
  DrawText(ACanvas.Handle, PChar(CheckBox1.Caption), -1,
    Rect(CheckBoxRect.Right + 8, ARect.Top, ARect.Right, ARect.Bottom),
    DT_VCENTER or DT_SINGLELINE or DT_LEFT);
end;

方案2：重写TCheckBox控件（适合多控件复用） #

如果需要多个复选框统一调整大小，重写控件更高效：

type
  TCustomCheckBox = class(TCheckBox)
  private
    FCheckSize: Integer;
    procedure SetCheckSize(Value: Integer);
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property CheckSize: Integer read FCheckSize write SetCheckSize default 20;
  end;

constructor TCustomCheckBox.Create(AOwner: TComponent);
begin
  inherited;
  FCheckSize := 20;
end;

procedure TCustomCheckBox.SetCheckSize(Value: Integer);
begin
  if FCheckSize <> Value then
  begin
    FCheckSize := Value;
    Invalidate;
  end;
end;

procedure TCustomCheckBox.Paint;
var
  CheckBoxRect: TRect;
  TextRect: TRect;
begin
  inherited;
  // 清空原生绘制内容
  Canvas.Brush.Color := Color;
  Canvas.FillRect(ClientRect);

  // 计算复选框位置，垂直居中
  CheckBoxRect := Rect(4, (ClientHeight - FCheckSize) div 2,
    4 + FCheckSize, (ClientHeight - FCheckSize) div 2 + FCheckSize);

  // 绘制复选框背景与边框
  Canvas.Brush.Color := clWhite;
  Canvas.Rectangle(CheckBoxRect);
  Canvas.Pen.Color := clGray;
  Canvas.Rectangle(CheckBoxRect);

  // 绘制勾选状态
  if Checked then
  begin
    Canvas.Pen.Color := clBlue;
    Canvas.Pen.Width := 3;
    Canvas.MoveTo(CheckBoxRect.Left + 3, CheckBoxRect.Top + FCheckSize div 2);
    Canvas.LineTo(CheckBoxRect.Left + FCheckSize div 2, CheckBoxRect.Bottom - 3);
    Canvas.LineTo(CheckBoxRect.Right - 3, CheckBoxRect.Top + 3);
  end;

  // 绘制文本
  TextRect := Rect(CheckBoxRect.Right + 8, 0, ClientWidth, ClientHeight);
  Canvas.Font := Font;
  DrawText(Canvas.Handle, PChar(Caption), -1, TextRect, DT_VCENTER or DT_SINGLELINE or DT_LEFT);
end;

注册控件后，就能在IDE中直接使用，通过CheckSize属性直接设置复选框大小。

方案3：Windows API消息调整（兼容性有限） #

可以发送BM_SETCHECKBOXSIZE消息尝试调整，但部分系统或主题下可能失效：

const
  BM_SETCHECKBOXSIZE = $00F4;

// 在控件初始化时调用，50为复选框边长
SendMessage(CheckBox1.Handle, BM_SETCHECKBOXSIZE, 0, 50);

内容的提问来源于stack exchange，提问作者Ago