在Delphi中定制DBGrid的输出有很多方法和理由。一种方法是添加复选框，使结果在视觉上更具吸引力。

默认情况下，如果数据集中有布尔字段，DBGrid会根据数据字段的值将其显示为“True”或“False”。但是，如果选择使用“true”复选框控件来启用编辑字段，则效果会更好。

创建一个示例应用程序

在Delphi中启动一个新表单，并放置TDBGrid、TaToTable和TADOConnection、TDataSource。

将所有组件名称保留为第一次放入表单时的状态（DBGrid1、ADOQuery1、AdoTable1等）。使用对象检查器设置ADOConnection1组件（TADOConnection）的ConnectionString属性，以指向示例QuickiesContest.mdb MS Access数据库。

将DBGrid1连接到DataSource1，将DataSource1连接到ADOTable1，最后将ADOTable1连接到ADOConnection1。ADOTable1 TableName属性应指向Articles表（以使DBGrid显示Articles表的记录）。

如果已正确设置所有属性，则在运行应用程序时（假定ADOTable1组件的活动属性为True），默认情况下，DBGrid会根据数据字段的值将布尔字段的值显示为“True”或“False”。

dbgrid中的复选框

要在DBGrid的单元格中显示复选框，我们需要在运行时为我们提供一个复选框。

选择组件调色板上的“数据控件”页面，然后选择TDBCheckbox。在窗体上的任意位置放置一个-无论在何处，因为大多数情况下，它将不可见或漂浮在网格上。

提示：TDBCheckBox是一个数据感知控件，允许用户选择或取消选择单个值，该值适用于布尔字段。

接下来，将其Visible属性设置为False。将DBCheckBox1的颜色属性更改为与DBGrid相同的颜色（使其与DBGrid混合），并删除标题。

最重要的是，确保DBCheckBox1连接到数据源1和正确的字段。

请注意，可以在表单的OnCreate事件中设置上述所有DBCheckBox1的属性值，如下所示：

procedure TForm1.FormCreate(Sender: TObject);begin DBCheckBox1.DataSource := DataSource1; DBCheckBox1.DataField := 'Winner'; DBCheckBox1.Visible := False; DBCheckBox1.Color := DBGrid1.Color; DBCheckBox1.Caption := ''; //explained later in the article DBCheckBox1.ValueChecked := 'Yes a Winner!'; DBCheckBox1.ValueUnChecked := 'Not this time.'; end;

接下来是最有趣的部分。在DBGrid中编辑布尔字段时，我们需要确保DBCheckBox1位于DBGrid中显示布尔字段的单元格上方（“浮动”）。

对于包含布尔字段（在“Winner”列中）的其余（非聚焦）单元格，我们需要提供布尔值的一些图形表示（真/假）。这意味着您至少需要两个图形：一个用于选中状态（真值），另一个用于未选中状态（假值）。

实现这一点的最简单方法是使用Windows API DrawFrameControl函数直接在DBGrid的画布上绘制。

以下是DBGrid的OnDrawColumnCell事件处理程序中的代码，该事件处理程序在网格需要绘制单元格时发生。

procedure TForm1.DBGrid1DrawColumnCell( Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); const IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);var DrawState: Integer; DrawRect: TRect;beginif (gdFocused in State) thenbeginif (Column.Field.FieldName = DBCheckBox1.DataField) thenbegin DBCheckBox1.Left := Rect.Left + DBGrid1.Left + 2; DBCheckBox1.Top := Rect.Top + DBGrid1.top + 2; DBCheckBox1.Width := Rect.Right - Rect.Left; DBCheckBox1.Height := Rect.Bottom - Rect.Top; DBCheckBox1.Visible := True; endendelsebeginif (Column.Field.FieldName = DBCheckBox1.DataField) thenbegin DrawRect:=Rect; InflateRect(DrawRect,-1,-1); DrawState := ISChecked[Column.Field.AsBoolean]; DBGrid1.Canvas.FillRect(Rect); DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect, DFC_BUTTON, DrawState); end; end; end;

要完成此步骤，我们需要确保离开单元格时DBCheckBox1不可见：

procedure TForm1.DBGrid1ColExit(Sender: TObject);beginif DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField then DBCheckBox1.Visible := Falseend;

我们只需要再处理两件事。

注意，在编辑模式下，所有击键都将进入DBGrid的单元格，我们必须确保它们被发送到复选框。对于复选框，我们主要感兴趣的是[Tab]和[Space]键[Tab]应将输入焦点移动到下一个单元格，[Space]应切换复选框的状态。

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);beginif (key = Chr(9)) then Exit; if (DBGrid1.SelectedField.FieldName = DBCheckBox1.DataField) thenbegin DBCheckBox1.SetFocus; SendMessage(DBCheckBox1.Handle, WM_Char, word(Key), 0); end;end;

当用户选中或取消选中复选框时，复选框的标题可能会相应更改。请注意，DBCheckBox有两个属性（ValueChecked和ValueUnChecked），用于指定复选框在选中或未选中时表示的字段值。

此ValueChecked属性包含“是的，赢家！”，而ValueUnChecked等于“这次不是。”

procedure TForm1.DBCheckBox1Click(Sender: TObject);beginif DBCheckBox1.Checked then DBCheckBox1.Caption := DBCheckBox1.ValueChecked else DBCheckBox1.Caption := DBCheckBox1.ValueUnChecked;end;

运行该项目，您将在Winner字段的列中看到所有复选框。