Label mit dynamischer Höhe, aber fester Breite?

[alzaimar]

Delphi-Quellcode:

Function MeasureTextHeight (Const s: String; aLabel : TLabel; aMaxWidth : Integer) : Integer;
Var
  p : TPanel;
  l : TLabel;
Begin
  p := TPanel.create(Nil);
  l := TLabel.create(Nil);
  Try
    with P do begin
      Width := aMaxWidth;
      Height := 1024;
    end;
    with l do begin
      Parent := P;
      Font.Assign (aLabel.Font);
      Align := alTop;
      WordWrap := True;
      Caption := s;
    end;
    Result := l.Height;
  Finally
    l.free;
    p.free;
  End
End;