Fórum Verificar quais itens checkados DBGRID #505881

procedure TfrmEnvSMS.gridTelefonesCellClick(Column: TColumn);
begin
  with dmDados do
  begin
    CDSNumTel.Edit;

    if CDSNumTelSEL.Value = False then
      CDSNumTelSEL.Value := True
    else
      CDSNumTelSEL.Value := False;

    CDSNumTel.Post;
  end;
end;

procedure TfrmEnvSMS.gridTelefonesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Check: Integer;
  R: TRect;
  DrawState: Integer; DrawRect: TRect;
begin
  with dmDados do
  begin
    if Column.FieldName = 'SEL' then
    begin

      gridTelefones.Canvas.FillRect(Rect);
      Check := 0;
      if CDSNumTelSEL.Value = True then
        Check := DFCS_CHECKED
      else
        Check := 0;
      R:=Rect;
      InflateRect(R,-2,-2); //Diminue o tamanho do CheckBox
      gridTelefones.Canvas.Font.Color := clWindow;
      gridTelefones.Canvas.Brush.Color := clWindow;
      gridTelefones.Canvas.FillRect(Rect);
      DrawFrameControl(gridTelefones.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check);
    end;
  end;
end;