Gibt es solch ein Control ?

[Mirilin]

Delphi-Quellcode:

procedure SetMultiLineString(const aString: String;
  aLabel: TLabel);
var
  s : String;
  t : String;
  p : String;
  i : Integer;
begin
  p := aString;
  s := '';
  while p <> '' do
  begin
    t := '';
    i := 1;
    while aLabel.Canvas.TextWidth(t)+aLabel.Canvas.TextWidth(p[i])  < aLabel.ClientWidth do
    begin
      t := t+p[i];
      inc(i);
    end;
    s := s + t+#13#10;
    Delete(p,1,i-1);
  end;
  aLabel.Caption := s;
end;

nicht schlagen

mfg Tobias