CheckBox no DBGrid do Delphi

CheckBox no DBGrid do Delphi

  novembro 07, 2013    Anônimo

---

Simular CheckBox no DBGrid, sempre foi algo muito trabalhoso, mas existe uma jeito simples e rápido de fazer essa simulação. Já mostrei antes outras maneiras mas recebi alguns e-mails falando que não conseguiram vamos la então:

Vamos precisar de:

• TDBGrid
• TClientDataSet
• TDataSource

No ClientDataSet1, faça:
Dê um duplo clique no ClientDataSet1, ou clique com o botão direito do mouse, e escolha a opção Fields Editor ...

Crie um campo com as seguintes características:

Tipo (type): String Tamanho (size): 1 

Nome (name): PEDIR

Após o preenchimento, clique em OK, e em seguida feche a janela, onde o campo PEDIR está aparecendo. Adicione o campo no TDBGrid com algum nome sugestivo.

Código abaixo deve fica no evento de OnDrawColumnCell do TDBGrid, Esse código irá utilizar o canvas para desenhar os checkBox dentro do nosso grid, e na primeira linha delimitamos para ser apenas na primeira coluna. 

procedure TFSistema.dbgrPrincipalDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  lR: TRect;
  lCheck: integer;
begin
  if Assigned(CDSGenerico.FindField('PEDIR')) and (Column.Index = 0) then begin
    if (CDSGenerico.FieldByName('PEDIR').Value = 1) then
      lCheck := DFCS_BUTTONCHECK or DFCS_CHECKED
    else
      lCheck := DFCS_BUTTONCHECK;
    dbgrPrincipal.Canvas.FillRect(Rect);
    lR := Rect;
    InflateRect(lR, -2, -2);
    DrawFrameControl(dbgrPrincipal.Canvas.Handle, lR, DFC_BUTTON, lCheck);
  end else
    dbgrPrincipal.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Para executar ação TRUE ou FALSE (No meu caso 1 ou 0) no CheckBox use o procedimento OnDblClik ou no OnCellClick do DBGrid, ( Normalmente utilizo no duplo clique para evitar que cada vez que clicar no dbgrid marque a opção), aqui um código já familiar apenas uma validação se o campo estiver 1 ou True joga para 0 ou False!

procedure TFSistema.dbgrPrincipalDblClick(Sender: TObject);
begin
  if not Assigned(CDSGenerico.FindField('PEDIR')) then
    ModalResult := mrOk
  else begin
    CDSGenerico.Edit;
    CDSGenerico.FieldByName('PEDIR').AsInteger := IfThen(CDSGenerico.FieldByName('PEDIR').asinteger = 1, 0, 1);
    CDSGenerico.Post;
  end;
end;

tam, tam, tam, tammmmmm 

Resultado

Exemplo: Download do exemplo