Stringgrid autosize

[quendolineDD]

Schau dir mal Canvas.TextHeight() an

Edit:
Sieht dann ungefähr so aus:

Delphi-Quellcode:

procedure TForm4.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
  if StringGrid1.Cells[ACol, ARow] <> '' then
    StringGrid1.RowHeights[ARow] := Canvas.TextHeight(StringGrid1.Cells[ACol, ARow]);
end;