Muchisimas Gracias BlueSteel, tambien lo iba a necesitar para un dbgrid, ahora ya lo tengo
, gracias.
Estube buscando y encontre este codigo en el rinconcito de delphi y me ha funcionado como yo queria.
Código Delphi
[-]
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Grid : TStringGrid;
Texto : String;
begin
Grid := TStringGrid(Sender);
IF (ARow < Grid.FixedRows) or (ACol < Grid.FixedCols) THEN
Grid.Canvas.Brush.Color := clBtnFace
else
Grid.Canvas.Brush.Color := clWhite;
Grid.Canvas.FillRect(Rect);
Texto := Grid.Cells[ACol,ARow];
DrawText( Grid.Canvas.Handle,PChar(Texto),
StrLen(PChar(Texto)),Rect,DT_WORDBREAK);
end;
....
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[2,1] := 'Ejemplo de celdas multilineas'+#13+
'Example of multiline cells';
StringGrid1.Options:= StringGrid1.Options+[goRowSizing,goColSizing];
end;
Aqui la dirección
http://www.rinconcitodelphi.com/trucos/Compo16.htm