Como controlar la barra de desplazamiento de un TRichEdit ????

[AGAG4]

Tengo 1 pequeño problema con el TRichEdit, tengo una aplicacion donde muestro en un TRichEdit los resultados de una operacion, todo va bien visualmente hasta que llega aprox. a la linea 100, la barra de desplazamiento de la derecha se queda arriba por tal motivo no se puede ver los resultados de abajo, hice la prueba con un Tmemo y este si funciona bien, la barra de desplazamiento se va moviendo hacia abajo para mostrar los ultimos resultados, pero me intereza saber como hacer eso con el TRichEdit, alguien sabe como hacer que la barra de desplazamiento se vaya moviendo hacia abajo en vez de arriba ????

[dec]

Hola,

Creo que no es muy elegante, que, igual no funciona en todo caso, y que hasta me parece recordar otra forma mejor... pero, en fin, por lo pronto aquí va una posible solución. Haz la prueba:


procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.Add(TimeToStr(Time));
PostMessage(Richedit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
end;