Problem mit Zeilenaufspaltung in einem Memo

[Nils_13]

Hi,

ich möchte, dass ein z.B. 5000 Zeichen langer Text in meinem Memo untereinander aufgereiht wird --> eine Art Zeilenumbruch. Ich möchte aber auch, dass das Memo die Höhe des Textes enthält --> 1 Zeile im Memo, Memo so hoch, wie eine Zeile. 2 Zeilen ..., usw.

Bei dem folgenden Code verhält sich das Memo allerdings komisch. Probiert es am besten selber mal schnell aus, es ist schwer zu beschreiben:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  Memo1.Height := (Memo1.Lines.Count * abs(Memo1.Font.Height));
end;

[mkinzler]

Deine rechnun g scheint den Zeilenabstand nicht zu berücksichtigen.

[Nils_13]

Und wie kann ich den Zeilenabstand berücksichtigen ?

[mkinzler]

Bei einem 1,5-fachen Zeilenabstand ist IMHO dann die Fonthöhe 1,5 mal zu nehmen.

[Nils_13]

Stimmt nicht ganz, hier der funktionierende Code:

Delphi-Quellcode:

Memo1.Height := Memo1.Lines.Count * Trunc(-Memo1.Font.Height * Memo1.Font.PixelsPerInch / 72);

Danke!