Ver Mensaje Individual
  #2  
Antiguo 12-05-2011
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola jlrdz, debes utilizar el evento OnDrawColumnCell de tu dbgrid y hacer lo siguiente:

Código Delphi [-]
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  Rec := Rect;
  //si es la columna donde esta el campo memo
  if (Column.Index = 2) then
   begin
     Str := TBlobField(Column.Field).AsString;
     DrawText(TDBGrid(Sender).Canvas.Handle,PChar(Str),
             StrLen(PChar(Str)),Rec,DT_WORDBREAK);
   end;
end;

Y no te olvides cambiar el alto de la fila.

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita