[Snake22]

с DbGrid'ом всё проще оказалось =)

Код:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin
if (gdFocused in State) then //имеет ли ячейка фокус?
DBGrid1.Canvas.Font.Color := clred; 
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State)
end;