RichEdit-Höhe automatisch setzen

[TStringlist]

Hallo,

Also diesbezüglich würde ich den Cursor/SelSart zuerst mal auf die letzte (event. +1te) Zeile des Textes setzen. Dann diesen mit EM_ScrollCaret ins Bild scrollen (die Form o. das RichEdit braucht dazu noch nicht sichtbar zu sein). Anschließend ermittelst du im RichEdit1.Client-Bereich den danach obersten "sichtbaren" Text-Pixel. ...Um welchen gleichzeitig also auch der Betrag von RichEdit1.Height zu gering ist, um den gesamten Text eben auf einmal anzeigen zu können. ...Und welcher gegen Ende dann also auf dieses RichEdit1.Height draufzuaddieren wäre. Zum Schluss erfolgt dann ein nochmaliges EM-Scrollen, um den sichtbaren Text auch tatsächlich immer mit Zeile 0 beginnen zu lassen.

Also lange Rede kurzer Code, alles ungefähr so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var XY : TPoint;
begin
  RichEdit1.SelStart := RichEdit1.Perform(EM_LineIndex,RichEdit1.Lines.Count,0);
  RichEdit1.Perform(EM_ScrollCaret,0,0);
  RichEdit1.Perform(EM_PosFromChar,integer(@XY),0);
  RichEdit1.Height := RichEdit1.Height + XY.Y*-1; // +/- einer Feineinstellung...
  //...die aber unnötig wird, wenn du die vertikale ScrollBar ausschaltest

  // Abschließende Kosmetik
  RichEdit1.SelStart := 0;
  RichEdit1.Perform(EM_ScrollCaret,0,0);
end;