Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Текст в ячейке TStringGrid, если не помещается, переносится на следующую ячейку

01.01.2007
//Сначала нужно обработать событие OnDrawCell компонента TStringGrid: 
 
 
 
procedure TForm1
.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
  i
, x, y: Integer;
begin
 
if gdFixed in State then
   
Exit;
 
if ARow > 1 then
   
Exit;
 
{Draw row 1 with text from cell 1,1 spanning all cells in the row}
 
with sender as TStringGrid do
 
begin
   
{Extend rect to include grid line on right, if not last cell in row}
   
if aCol < Pred(ColCount) then
     
Rect.Right := Rect.Right + GridlineWidth;
   
{Figure out where the text of the first cell would start
    relative to the current cells rect
}
    y
:= Rect.Top + 2;
    x
:= Rect.Left + 2;
   
for i:= 1 to aCol - 1 do
      x
:= x - ColWidths[i] - GridlineWidth;
   
{Paint cell pale yellow}
   
Canvas.Brush.Color := $7FFFFF;
   
Canvas.Brush.Style := bsSolid;
   
Canvas.FillRect( Rect );
   
{Paint text of cell 1,1 clipped to current cell}
   
Canvas.TextRect( Rect, x, y, Cells[1, 1] );
 
end;
end;
 
 
 
 
//По созданию окна изобразим следующее
 
 
 
procedure TForm1
.FormCreate(Sender: TObject);
var
  i
, k: Integer;
begin
 
with StringGrid1 do
 
begin
    cells
[1, 1] := 'A rather long line which will span cells';
   
for i:= 1 to colcount-1 do
     
for k:= 2 to rowcount -1 do
        cells
[i,k] := Format( 'Cell[%d, %d]', [i, k]);
 
end;
end;
 
 

https://delphiworld.narod.ru/

DelphiWorld 6.0