Höhe von TMemo an Textlänge anpassen

[alzaimar]

So ungefähr:

Delphi-Quellcode:

Var
  c : TControlCanvas;

begin
  c := TControlCanvas.Create;
  Try
    c.Control := MyMemo;
    MyMemo.Height := 10+c.TextHeight('|Gg')* MyMemo.lines.count;
  Finally
    c.Free;
  End;
end;

Geht aber bestimmt auch anders.