unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables;    type
  TForm2 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1ColEnter(Sender: TObject);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
     OriginalOptions: TDBgridOptions;
     
  public
    { Public declarations }
    procedure SaveBoolean();
  end;    var
  Form2: TForm2;    implementation    {$R *.dfm}    procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
     if dbgrid1.selectedfield.datatype=ftboolean then
      saveboolean();    end;    procedure TForm2.DBGrid1ColEnter(Sender: TObject);
begin       if dbgrid1.selectedfield.datatype=ftboolean then
   begin
        OriginalOptions := DBGrid1.Options;
        DBGrid1.Options := DBGrid1.Options - [dgEditing];
   end;         end;    procedure TForm2.DBGrid1ColExit(Sender: TObject);
begin 
  if dbgrid1.selectedfield.datatype=ftboolean then
       dbgrid1.Options :=originaloptions;    end;    procedure TForm2.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;    procedure TForm2.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin     //確保該欄是邏輯字段和空格鍵在鍵盤中被敲擊    if ( Key = VK_SPACE ) and( DBGrid1.SelectedField.DataType = ftBoolean ) then
          SaveBoolean();
end;    procedure TForm2.saveboolean();
begin     DBGrid1.SelectedField.Dataset.Edit;     DBGrid1.SelectedField.AsBoolean :=not DBGrid1.SelectedField.AsBoolean;     DBGrid1.SelectedField.Dataset.Post;    end;    end.