Delphi DBGrid 實現復選框

1

在數據庫對應的表中加入  bit 列驗證是否被選中

然后dbgrid第一列的filedname是bit列

在DBgrid的onDrawColumnCell事件中寫：

procedure 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);
begin
  if column.Field.DataType=ftboolean   then
  begin
     DBGrid1.Canvas.FillRect(rect);
     drawframecontrol(DBGrid1.Canvas.Handle,rect,dfc_button,ctrlstate[column.Field.asboolean]);
   end;
end;

　　

上方事件寫完后會在第一行第一列出現復選框

 

 2

 在dbgrid的oncellclick事件中寫，目的就是實現單擊時  復選框被選中

procedure TcgDaohuodj.DBGrid1CellClick(Column: TColumn);
begin
  if DBGrid1.SelectedField.DataType=ftboolean   then
  begin
    DBGrid1.SelectedField.DataSet.Edit;
    DBGrid1.SelectedField.AsBoolean:=not DBGrid3.SelectedField.AsBoolean;
    DBGrid1.SelectedField.DataSet.Post;
  end;
end；

　　

3
在dbgrid的ontitileclick事件中寫如下代碼，目的是點擊bit列是實現全選和全消

 

procedure DBGrid1TitleClick(Column: TColumn);
var i:integer;
begin
  if column.Index=0 then begin    //驗證是否第一列
    adoquery1.First;                //游標回滾
    DBGrid1.SelectedRows.CurrentRowSelected:=true;    //第一行被選中

    if trim(column.Title.Caption)='全選' then
    begin
      for i:=0 to dbgrid1.DataSource.DataSet.RecordCount-1 do
      begin
        dbgrid1.Fields[0].DataSet.edit;
        dbgrid1.Fields[0].AsBoolean:=true;
        dbgrid1.Fields[0].DataSet.post;
        dbgrid1.datasource.dataset.next;
      end;
      column.Title.Caption:='全消';
    end else begin
      for i:=0 to dbgrid1.DataSource.DataSet.RecordCount-1 do
      begin
        dbgrid1.Fields[0].DataSet.edit;
        dbgrid1.Fields[0].AsBoolean:=false;
        dbgrid1.Fields[0].DataSet.post;
        dbgrid1.datasource.dataset.next;
      end;
      column.Title.Caption:='全選';
    end;
    adoquery1.First;    //游標回滾
    DBGrid1.SelectedRows.CurrentRowSelected:=true;  //選中第一行
  end;
end;

 

 

效果如圖：