如何实现在dbgrid里加个复选框

Question

如何实现在dbgrid里加个复选框
这个复选框可以是数据库里没有的字段

Answer 1

可以在ONDBGRIDCELLDRAW里面画一个。好象记得有这么写的，具体怎么写我忘了，找到发你

Answer 2

自己用Canvas画上去
当然第三方组件都是个好方法http://lysoft.7u7.net

Answer 3

自己写怎么写，我是用dbgrideh的

Answer 4

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  //这个整数值将按照布尔值返回，并送入数组
  CtrlState:array[Boolean] of Integer = (DFCS_BUTTONCHECK,DFCS_BUTTONCHECK or DFCS_CHECKED);
var
  flag:boolean;
begin
  //确保只有在逻辑字段才能插入组件
  if Column.FieldName = 'platform' then
  begin
          if (Column.Field.AsString  = '1') then
            flag:= true
          else
            flag:=false;
        DrawFrameControl(DBGrid1.Canvas.Handle,Rect,DFC_BUTTON,CtrlState[FLAG]);
  end;
end;