hola.. mira en una parte pude hacer que una celda (pero era de un DBGrid) me diera más de 1 línea en el caso de que sea un campo de tipo memo... el código es el siguiente
Código Delphi
[-]
procedure TOrdenes.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Str: string;
begin
if (Column.Index = 1) then begin
if Column.Field is TMemoField then begin
Str := TBlobField(Column.Field).AsString;
while Pos(#13, Str) > 0 do
Str[Pos(#13, Str)] := ' ';
while Pos(#10, Str) > 0 do
Str[Pos(#10, Str)] := ' ';
DbGrid2.Canvas.FillRect(Rect);
DbGrid2.Canvas.TextOut(Rect.Left, Rect.Top, Str);
end;
end;
end;
espero que te sirva