====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;