Zum Inhalt springen

Empfohlene Beiträge

Geschrieben

Hi,

ich hab RichEdit auf meinem Formular und jedesmal, wenn eine neue Zeile dazukommt, soll nach unten gescrollt werden. Dazu benutze ich folgende Befehle:

edThread.Perform(WM_VSCROLL, SB_BOTTOM, 0);

edThread.Perform(WM_VSCROLL, SB_PAGEUP, 0);

Das funktioniert auf meinem Rechner (WinNT SP6) und auf weiteren WinNT-Rechnern, aber nicht auf allen. Dort wird nicht nach unten gescrollt. Ebenso auf Win2K-Rechnern. Eine Vermutung von mir ist, dass dort mir dem ersten Befehl nach unten gescrollt wird und mit dem zweiten wieder nach oben. Allerdings kann ich den zweiten nicht weglassen, weil sonst unter die letzte Zeile gescrollt wird. Wie kann ich das Problem beheben?

Geschrieben

Hier mal ein Beispiel zum Scrollen in einer TRichEdit Komponente


var itemp: Integer;

...

  with RichEdit1 do

  begin

    // Move to the last line:

    // Zur letzten Zeile scrollen:

    SelStart := Length(Text);

    Perform(EM_SCROLLCARET, 0, 0);


    // Move to the first line:

    // Zur ersten Zeile Scrollen:

    SelStart := Perform(EM_LINEINDEX, 0, 0);

    Perform(EM_SCROLLCARET, 0, 0);


    // Move to Line 5, Character 3:

    // Cursor auf Linie 5, Postion 3 setzen:

    SelStart := Perform(EM_LINEINDEX, 5, 0) + 3;

    Perform(EM_SCROLLCARET, 0, 0);


    // Scroll down 1 Line

    // Eine linie nach unten scrollen

    with RichEdit1 do

    begin

      itemp := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);

      SelStart := Perform(EM_LINEINDEX, itemp + 1, 0);

      Perform(EM_SCROLLCARET, 0, 0);

    end; 

Hilft dir vielleicht...

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...