关闭

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

2257人阅读 评论(0) 收藏 举报

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:388809次
    • 积分:3703
    • 等级:
    • 排名:第11562名
    • 原创:85篇
    • 转载:25篇
    • 译文:0篇
    • 评论:39条
    文章分类
    最新评论