Gibt es solch ein Control ?

[himitsu]

z.B. ins OnChange-Ereignis eines Memos einen Code dieser Art reinmachen.

Delphi-Quellcode:

Procedure TForm1.Memo1Change(Sender: TObject);
  Begin
    Memo1.Height := Max(Memo1.Lines.Count, 1) * TextHoehe(Memo1.Font, 'Xg') + 8;
  End;

TextHoehe => Länge und Höhe eines Textes (String)



[Edit]Sch* Schreibfehler