[Caminante]

Hola

Prueba asi:

Código Delphi [-]
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  R:TRect;
begin
  r:=rect;
  DBGrid1.Canvas.FillRect(r);
  drawtext(dbgrid1.Canvas.Handle,pchar(field.asstring),-1,r,dt_singleline or DT_WORD_ELLIPSIS)
end;

Saludos