Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

DBGRID - COLORIR TODOS MENOS A CELULA SELECIONADA

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
   if not (gdSelected in State) then
   begin
     with DBGrid1.Canvas do
     begin
       Brush.Color := clAqua;
       Font.Color := clNavy;
    end;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;