Вот пример от Cat2


Re: Как вставить checkbox в Grid?

Просто кусок из проги c базой на ACCESS.

Определяешь перерисовку на onClick и на нажатие пробела.

Функция DBGrid1IsCheckBox(TField) определяет, надо ли рисовать CheckBox.

Умному достаточно.
procedure TMainForm.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
dc:HDC;
bcolor : TColor;
begin
if ADODataSetMain.recno>0 then
try
bcolor:=clWindow;
if not (gdSelected in State) then
begin
case ADODataSetMain.FieldByName('Код_Персонала').AsString of
'1' : bcolor:=$FFEFD5;
'2' : bcolor:=$EFFFD5;
'3' : bcolor:=$FFFFF0;

'4' : bcolor:=$E5EFDF;
'5' : bcolor:=$AFDFD5;
end;
DBGrid1.Canvas.Brush.Color:=bcolor
end;
if Column.FieldName='Объем_вид' then
if Column.Field.AsString<>'осн.' then
if not (gdSelected in State) then
DBGrid1.Canvas.Font.Color:=clRed
else
DBGrid1.Canvas.Font.Color:=clYellow;

dc:=DBGrid1.Canvas.Handle;
if DBGrid1IsCheckBox(column.Field) then
with DBGrid1.Canvas do
begin
FillRect( Rect );
if Column.Field.value=1 then
DrawFrameControl(dc,Rect, DFC_BUTTON , DFCS_CHECKED)
else
DrawFrameControl(dc,Rect ,DFC_BUTTON , DFCS_BUTTONCHECK)
end
else
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);

except
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end
end;

procedure TMainForm.DBGrid1CellClick(Column: TColumn);
begin
if DBGrid1IsCheckBox(column.Field) then
begin
ADODataSetMain.Edit;
DBGrid1.SelectedField.AsInteger:=abs(DBGrid1.SelectedField.AsInteger-1);
ADODataSetMain.Post;
DBgrid1.Options:=DBgrid1.Options-[dgEditing];
end
end;





Надеюсь то что надо сам вытащишь