在TDBGrid中绘制一个多选框(CheckBox)

可在TDBGrid的OnDrawColumnCell和OnDrawDataCell事件中编写

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
    if (Column->FieldName == "Visible")
    {
        TDBGrid *grid = dynamic_cast<TDBGrid *>(Sender);
        unsigned int uState = DFCS_BUTTONCHECK;
        if (Column->Field->AsBoolean)  uState += DFCS_CHECKED;
        TRect FrameRect = TRect(Rect.left+2,Rect.top+2,Rect.right-2,Rect.bottom-2);
        //也可以直接=Rect，不过画出来的单选框有点偏大 
        DrawFrameControl(grid->Canvas->Handle,&FrameRect,DFC_BUTTON,uState);
    }
}

（在OnDrawDataCell中需要更改Column参数为Field）

说明：这仅仅是在TDBGrid中绘制一个CheckBox形状，这个CheckBox并不会响应鼠标点击事件，但会根据字段值改变选择状态，所以还必须自己编写事件改变字段值，可以在OnCellClick事件中改变字段值，比如:

void __fastcall TForm1::DBGrid1CellClick(TColumn *Column)
{
    TDBGrid *grid = dynamic_cast<TDBGrid *>(Column->Grid);

    if (Column->FieldName == "Visible") {
        Column->Field->DataSet->Edit();
        Column->Field->AsBoolean = !Column->Field->AsBoolean;
        Column->Field->DataSet->Post();
    }
}

同时，为了不在Cell内显示字段本身的值(True或False)，也就是不管什么值都显示空白，必须这样

((TBooleanField *)Column->Field)->DisplayValues=";";

也可以在设计时更改（ADOTable的Fields Editor中），是TBooleanField字段才会有DisplayValues属性，如果你这个字段不是Boolean型，这样的转换可能会有错误。

另外，这和其他的绘制功能不太一样（比如更改字体颜色），一定不能在后面加上DefaultDrawColumnCell或DefaultDrawDataCell，要不然就白画啦，可以加在前面。