Come automaticamente fino alla fine di Richedit?
-
28-10-2019 - |
Domanda
Non avevo mai avuto bisogno di usare il trichedit prima, ho sempre usato tmemo.
Vorrei Autoscrolling di ricchedit fino alla fine quando aggiungo testo come Tmemo. Guarda come si prende in giro aggiungendo alcuni dati:
Come puoi vedere, la barra di scorrimento rimane in alto, ma vorrei che fosse rimasto in fondo mentre aggiungevo il testo.
Ho "cercato su Google" per soluzioni ma non sono riuscito a trovarne una buona e affidabile.
Soluzione
Prova questo codice
RichEdit1.SetFocus;
RichEdit1.SelStart := RichEdit1.GetTextLen;
RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
Altri suggerimenti
Ecco una soluzione molto più semplice e veloce:
Nel gestore di eventi OnChange Just:
SendMessage(RichEdit1.handle, WM_VSCROLL, SB_BOTTOM, 0);
Risposta originale da: https://www.experts-exchange.com/questions/21002277/richedit-autoscrolling.html
In breve, è necessario posizionare il cursore alla fine o inviare il codice per scorrere verso il basso.
Hai provato
Richedit1.SelStart :=RichEdit1.GetTextLength();
SendMessage(RichEdit1.handle, EM_SCROLLCARET,0,0);