Fórum ADICIONAR CHECKBOX NO TÍTULO DA DBGRID #506196

procedure TfrmEnvSMS.gridTelefonesCellClick(Column: TColumn);
begin
  with dmDados do
  begin
    if Column.FieldName = 'SELL' then
    begin
      CDSNumTel.Edit;
      CDSNumTelSELL.asInteger := IfThen(CDSNumTelSELL.asInteger = 1, 0, 1);
      CDSNumTel.Post;
    end;
  end;
end;

procedure TfrmEnvSMS.gridTelefonesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var
  Check: Integer;
  R: TRect;
  DrawState: Integer; DrawRect: TRect;
begin
  with dmDados do
  begin
    if (Column.Field.FieldName = 'SELL') then
    begin
      DrawRect:=Rect;
      InflateRect(DrawRect,-1,-1);
      DrawState := ISChecked[Column.Field.AsInteger = 1];
      TDBGrid(Sender).Canvas.FillRect(Rect);
      DrawFrameControl(TDBGrid(Sender).Canvas.Handle, DrawRect, DFC_BUTTON, DrawState);
     end;
  end;
end;