Delphi 10.1 DBGrid添加复选框后如何去除True/False文本

嗨，我来帮你搞定这个问题！你已经成功通过DrawCell事件绘制了复选框，但还显示True/False文本，这是因为DBGrid默认会执行单元格的文本绘制步骤，我们只需要在自定义绘制后禁用默认绘制即可。

方法一：修改DrawCell事件代码，禁用默认绘制 #

在你的DrawCell事件处理代码中，当处理布尔列的逻辑完成后，添加一行DefaultDraw := False;，这样就能阻止DBGrid绘制默认的True/False文本了。修改后的完整代码如下：

const
  CtrlState: array [boolean] of integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var
  style: UINT;
begin
  if (Column.Field.DataType = ftBoolean) then
  begin
    dbGrid1.Canvas.FillRect(Rect);
    if VarIsNull(Column.Field.Value) then
      DrawFrameControl(dbGrid1.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_INACTIVE) { grayed }
    else
      DrawFrameControl(dbGrid1.Canvas.Handle, Rect, DFC_BUTTON, CtrlState[Column.Field.AsBoolean]); { checked or unchecked }
    // 禁用默认绘制，避免显示True/False文本
    DefaultDraw := False;
  end;
end;

额外提示：调整列宽适配复选框 #

为了让复选框显示更美观，你可以手动调整该布尔列的宽度（比如设置为25-30），刚好容纳复选框即可，避免留出多余空间。

另一种可选方法：设置字段的显示格式为空 #

你也可以通过设置布尔字段的DisplayFormat和EditFormat属性为空字符串，这样DBGrid就不会显示True/False文本了。步骤如下：

• 找到对应的布尔字段（比如在DataSet的字段编辑器中）
• 设置其DisplayFormat为''，EditFormat为''

不过这种方法不如第一种直接，因为如果后续有其他地方需要显示该字段的文本，可能会受影响，所以更推荐第一种方法。

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