Wie autoscroll zum Ende der RichEdit?

Ich nie brauchte, um das TRichEdit vor, immer verwendet TMemo.

Ich würde gerne RichEdit den automatischen Bildlauf an das Ende, wenn ich text hinzufügen wie TMemo. Sehen, wie es aussieht, nachdem Sie fügen Sie einige Daten:

Wie autoscroll zum Ende der RichEdit?

Wie Sie sehen können, wird der Bildlauf-Leiste bleibt an der Spitze, aber ich möchte, blieb es an der Unterseite, wie ich text Hinzugefügt.

Hab ich 'googelte' nach Lösungen, aber ich konnte nicht finden eine gute und zuverlässige ein.

  • Ich sehe keinen Unterschied. Ich habe versucht Memo1.Lines.Add('test') und RichEdit1.Lines.Add('test') und Sie Verhalten sich auf die gleiche Weise. Sie müssen geben Sie mehr details.
  • Ich leg mehr details. Ich hoffe, dass ich die Sache jetzt klarer.
  • Anscheinend ist Sie nicht hinzufügen text durch tun RichEdit1.Lines.Add('text'). Verwenden Sie SelText := 'text' statt?
  • Ich bin mit RichEdit1.Lines.Add('text')
  • Wenn wir RichEdit1.Linien.Add () - Methode auch, die Ausgabe ist die gleiche wie oben(In D2006)
  • Ja, jetzt sehe ich! Ich habe versucht RichEdit1.Lines.Add('text') im OnClick von der form und so den Rich-Edit - (oder memo) hatte den Fokus die ganze Zeit. Und dann sowohl die Rich-Edit-und memo-Blättern. Aber wenn das Steuerelement nicht den Fokus hat (z.B. verwenden Sie ein OnClick einer TButton), dann wird nur das memo-Schriftrollen! Interessant...

InformationsquelleAutor Daniel Grillo | 2011-06-16
  1. 15

    Versuchen, diesen code

    RichEdit1.SetFocus;
RichEdit1.SelStart := RichEdit1.GetTextLen;
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
    • Danke. Es funktioniert! Ich habe Bearbeiten ein wenig Ihre Antwort, wenn Sie nichts dagegen haben.
    • Ich bin mir nicht 100 % sicher, aber ich vermute, dass RichEdit1.GetTextLength ist viel schneller als Length(RichEdit1.Text). Der ehemalige sendet nur ein WM_GETTEXTLENGTH Nachricht an das Rich-Edit-Fenster (wie es Microsoft will, dass Sie tun), während die anderen zunächst erhalten Sie den gesamten text als eine Zeichenkette (potenziell sehr langsam?), und dann liest der Länge Kardinal von es (sehr schnell). UPDATE: Sorry, Sie wollte GetTextLen, und Bharat verwendet Length. Ich mischte Sie!
    • Gut, es war BugFinder wer wollte GtTextLen AFAICS, aber das ist alles Durcheinander jetzt.
    • Ich weiß nicht, ob es abhängig von der Windows-oder Delphi-version, aber mit Delphi 2007 unter Windows XP und 7 alle, die ich brauchte, war die .Führen Sie Linie. Es funktionierte auch ohne das TRichEdit wird konzentriert.
    • Wollte nur hinzufügen, dass mit RichEdit1.Durchführen(EM_SCROLLCARET, 0, 0); durch sich selbst funktionierte großartig für mich (Delphi XE2)
    • Ja, ich hatte einige wichtige änderungen machen, basierend auf dieser SetFocus Anforderung. Was ich Tat, ist ein log, in dem Fall ist alles auf dem Formular ist deaktiviert, während das schreiben der log. So musste ich manuell deaktivieren Sie die einzelnen Steuerelemente in einer Zeit, anstatt die ganze Packung (weil Sie können nicht den Fokus auf Steuerelemente deaktiviert).

    InformationsquelleAutor Bharat
  2. 2

    Hier ist viel einfacher und schnelle Lösung:

    Im OnChange-event-handler nur:

    SendMessage(RichEdit1.handle, WM_VSCROLL, SB_BOTTOM, 0);

    Original-Antwort von: https://www.experts-exchange.com/questions/21002277/Richedit-autoscrolling.html

    InformationsquelleAutor Niki
  3. 1

    Kurz gesagt, müssen Sie platzieren Sie den cursor an das Ende oder einen code senden um nach unten zu Blättern.

    Haben Sie versucht,

    Richedit1.SelStart :=RichEdit1.GetTextLength();
SendMessage(RichEdit1.handle, EM_SCROLLCARET,0,0);
    • Ich habe versucht, und es hat nicht funktioniert. Sie haben, um RichEdit1.SetFocus vor. Und zumindest in Delphi 2010 müssen Sie GetTextLen statt GetTextLength
    • Das ist irgendwie irritierend, Im überrascht, braucht es Fokus. (die getTextLength war aus dem Gedächtnis, so dass Im nicht zu Wundern, sorry)
    InformationsquelleAutor BugFinder
Schreibe einen Kommentar