dic_checkbox_dbgrid [KS Sistemas

Criar um CheckBox no componente TDbgrid

Observações

O comando a seguir deve ser inserido no evento DrawColumnCell do TDbGrid.
No Exemplo o dbgrid1 representa o componente TDbgrid, em desenvolvimento ele deve ser substituído pelo seu Dbgrid.
No dbgrid deve ser criado uma nova coluna a qual será utilizada para receber o CheckBox.

Código

var
  Check: Integer;
  R: TRect;    
begin  
  if Column.FieldName = 'NOME DA COLUNA' then //Nome da coluna que vai receber o CheckBox
  begin
    dbgrid1.Canvas.FillRect(Rect); 

    Check := 0;

    if ( Condicao ) then //Condição utilizada para determinar se o CheckBox deve estar marcado
      Check := DFCS_CHECKED
    else
      Check := 0;

    R:=Rect;
    InflateRect(R,-2,-2); //Diminui o tamanho do CheckBox
    DrawFrameControl(dbgrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end;
end;