Einzelnen Beitrag anzeigen

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge
 
#1

Problem mit Zeilenaufspaltung in einem Memo

  Alt 5. Jul 2006, 19:40
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;
  Mit Zitat antworten Zitat