Buscar por:

Trocando a cor de uma célula num dbgrid

Código

{No evento onDrawColumnCell do dbgrid coloque o código para mudar a cor da fonte do dbgrid e a chave do método para "desenhar" os dados. }

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const 

Rect: TRect; 

DataCol: Integer; 

Column: TColumn; 

State: TGridDrawState); 

begin 

if (Column.Field.FieldName = 'NOMEDOCAMPO') then 

begin 

if condição then // coloque aqui sua condição 

begin 

DBGrid1.Canvas.Brush.Color:= clAqua; 

DBGrid1.Canvas.Font.Color:= clWindowText; 

DBGrid1.Canvas.FillRect(Rect); 

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 

end; 

end; 

end;