Komponentenbreite an Textbreite anpassen

[gfjs]

Zur Vermeidung von Frust bei Leuten meines Alters sollte es Minderjährigen untersagt werden, im Forum Ihr Alter preiszugeben!

Erst mal vielen Dank, aber das Ganze wird mir immer unheimlicher:

Delphi-Quellcode:

Memo1.Font.Size := 10;
Memo1.Height    := 20;
Memo1.Clear;
Memo1.Text := 'TEST';

funktioniert!

Delphi-Quellcode:

Memo1.Font.Size := 10;
Memo1.Height    := 20;
Memo1.Clear;
Memo1.Lines.Add('TEST');

funktioniert nicht! - d.h. es funktioniert erst, wenn Memo1.Height > 37.

Jetzt könnte man annehmen, dass mit dem Lines.Add auch gleich ein Zeilenwechsel eingefügt wird, d.h. dass noch eine zweite leere Zeile vorhanden ist. Dem ist aber nicht so, denn die Abfrage von Lines.Count ergibt eindeutig 1.

Gruß Jürgen