Desplazamiento RichEdit sin tener foco

Question

Necesito desplazar un RichEdit hasta el final después de agregar una línea. Tengo este RichEdit en una forma separada, que no quiero enfocarme en absoluto. Intenté a menudo la solución sugerida:

RichEdit.Lines.Add(someText); 
RichEdit.SelStart:=RichEdit.GetTextLen; 
SendMessage(RichEdit.handle, EM_SCROLLCARET, 0, 0); 

Pero esto no funciona para mí. Sin embargo, cuando enfoco RichEdit antes de llamar al SendMessage usando RichEdit.SetFocus;, funciona bien. Eso, sin embargo, arruina mis otras necesidades para la aplicación.

Estoy usando XE2. Gracias

Answer 1

Esto es lo que hago:

SendMessage(RichEdit.Handle, WM_VSCROLL, SB_BOTTOM, 0); 

Answer 2

Ver esta entrada del blog de François Gaillard: richedit-on-scrolling-strike.

Appearently un error, aquí está la solución Solución:

procedure ScrollToEnd(ARichEdit: TRichEdit); 
var 
    isSelectionHidden: Boolean; 
begin 
    with ARichEdit do 
    begin 
    SelStart := Perform(EM_LINEINDEX, Lines.Count, 0);//Set caret at end 
    isSelectionHidden := HideSelection; 
    try 
     HideSelection := False; 
     Perform(EM_SCROLLCARET, 0, 0); // Scroll to caret 
    finally 
     HideSelection := isSelectionHidden; 
    end; 
    end; 
end;