Problèmes de défilement avec TRichEdit dans Delphi

Question

J'ajoute des lignes à un TRichEdit comment garder le focus sur la ligne qui vient d'être ajoutée?

For Idx := 1 to 1000 do 
    RichEdit.Lines.add(IntToStr(Idx)); 

EDIT

Je viens de ce que la ligne de fond du richedit pour montrer ce qui vient d'être ajouté et toutes les autres lignes pour faire défiler

Answer 1

Cela devrait fonctionner, si vous voulez juste faire défiler jusqu'à la fin de la richedit:

For Idx := 1 to 1000 do 
begin 
    RichEdit.Lines.add(IntToStr(Idx)); 
    RichEdit.SelStart := RichEdit.GetTextLen; 
    SendMessage(RichEdit.handle, EM_SCROLLCARET,0,0); 
end; 

Si c'est pas ce que vous vouliez, s'il vous plaît voir mon commentaire ci-dessus et clarifier votre question.

Answer 2

Vous pouvez essayer cette

option 1) positionner le curseur lorsque la boucle est terminée

For Idx := 1 to 1000 do 
    RichEdit.Lines.add(IntToStr(Idx)); 

RichEdit.SetFocus; 
RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, RichEdit.Lines.Count-1, 0) ; 

option 2) régler la courbe r pendant l'exécution de la boucle

For Idx := 1 to 1000 do 
Begin 
RichEdit.Lines.add(IntToStr(Idx)); 
RichEdit.SetFocus; 
End; 

RichEdit.SelStart := RichEdit.Perform(EM_LINEINDEX, RichEdit.Lines.Count-1, 0) ; 

Au revoir.