Tmemo height dynamisch an text anpassen

[blackfin]

Alternativ probier noch folgendes, auch indem du den Canvas des Labels benutzt.
Das Label muss aber die gleiche Breite (oder etwas kleiner) wie das Memo dafür haben, Höhe ist egal.

Delphi-Quellcode:

..
.
var
  h: Integer ;
  FRect : TRect ;
begin
  FRect.Left := 0;
  FRect.Top := 0 ;
  FRect.Right := Label1.Width ;
  FRect.Bottom := 0 ;

  DrawText(Label1.Canvas.Handle, PChar(MeinText),Length(MeinText),FRect,DT_CALCRECT or DT_NOPREFIX or DT_WORDBREAK);
  Memo1.Height := FRect.Bottom;

  Memo1.Text := MeinText ;
end;