Ver Mensaje Individual
  #2  
Antiguo 13-12-2003
Avatar de JavierB
JavierB JavierB is offline
Miembro
 
Registrado: may 2003
Ubicación: Madrid
Posts: 99
Reputación: 22
JavierB Va por buen camino
Hola, SoftMakerMex.

No tento el componente que dices, pero tengo este código que saque de no recuerdo donde:
Código:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Check: Integer;
  R: TRect;
begin
  if Column.FieldName = 'NombreCampo' then
  begin
    DBGrid1.Canvas.FillRect(Rect);
    Check := 0;
    if Table1.FindField('NombreCampo').AsBoolean then Check := DFCS_CHECKED;
    R:=Rect;
    InflateRect(R,-2,-2); //Disminuye el tamaño del CheckBox
    DrawFrameControl(DBGrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end;
end;


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Column.FieldName = 'NombreCampo' then
  begin
    Table1.Edit;
    Table1.FindField('NombreCampo').AsBoolean:=not Table1.FindField('NombreCampo').AsBoolean;
  end;
end;
NombreCampo es el nombre del campo que tienes en tu base de datos como booleano.

Espero que te sirva. Saludos,
__________________
Lo importante no es saber, sino tener el e-mail del que sabe.
Responder Con Cita