在字符串网格Delphi FMX中添加复选框

procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF; const Row: Integer; const Value: TValue; const State: TGridDrawStates);
var
  CheckBoxRect: TRectF;
begin
  if Column.Index = CheckBoxColumnIndex then
  begin
    CheckBoxRect := Bounds;
    InflateRect(CheckBoxRect, -2, -2); // 调整复选框的大小

    // 绘制复选框背景
    Canvas.Fill.Color := TAlphaColorRec.White;
    Canvas.FillRect(CheckBoxRect, 0, 0, [], 1);

    // 绘制复选框边框
    Canvas.Stroke.Color := TAlphaColorRec.Black;
    Canvas.DrawRect(CheckBoxRect, 0, 0, [], 1);

    // 根据当前单元格的值确定复选框的选中状态
    if Value.AsBoolean then
    begin
      // 绘制选中状态的复选框
      Canvas.Fill.Color := TAlphaColorRec.Blue;
      Canvas.FillRect(RectF(CheckBoxRect.Left + 2, CheckBoxRect.Top + 2, CheckBoxRect.Right - 2, CheckBoxRect.Bottom - 2), 0, 0, [], 1);
    end;
  end;
end;

procedure TForm1.StringGrid1Click(Sender: TObject);
var
  CheckBoxRect: TRectF;
  Column: TColumn;
  Row: Integer;
begin
  Column := StringGrid1.Selected.Column;
  Row := StringGrid1.Selected.Row;

  if Column.Index = CheckBoxColumnIndex then
  begin
    CheckBoxRect := StringGrid1.CellRect(Column, Row);
    InflateRect(CheckBoxRect, -2, -2); // 调整复选框的大小

    // 切换复选框的选中状态
    if StringGrid1.Cells[Column.Index, Row] = '1' then
      StringGrid1.Cells[Column.Index, Row] := '0'
    else
      StringGrid1.Cells[Column.Index, Row] := '1';

    // 重新绘制复选框
    StringGrid1.Canvas.Fill.Color := TAlphaColorRec.White;
    StringGrid1.Canvas.FillRect(CheckBoxRect, 0, 0, [], 1);
    StringGrid1.Canvas.Stroke.Color := TAlphaColorRec.Black;
    StringGrid1.Canvas.DrawRect(CheckBoxRect, 0, 0, [], 1);
    if StringGrid1.Cells[Column.Index, Row] = '1' then
    begin
      StringGrid1.Canvas.Fill.Color := TAlphaColorRec.Blue;
      StringGrid1.Canvas.FillRect(RectF(CheckBoxRect.Left + 2, CheckBoxRect.Top + 2, CheckBoxRect.Right - 2, CheckBoxRect.Bottom - 2), 0, 0, [], 1);
    end;
  end;
end;