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

来源：互联网发布：qq机器人 php 编辑：程序博客网时间：2024/05/18 02:03

可在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，要不然就白画啦，可以加在前面。