memo de desplazamiento automático en delphi

Question

¿Delphi contiene un componente que permite el desplazamiento automático de texto cargado desde db, como en los sitios de noticias?

Tt es para una aplicación delphi 7 y requiere un desplazamiento vertical.

Answer 1

Ninguna de esas soluciones para el desplazamiento funcionó para mí en la nota de RichEdit. Usando Delphi 2010 + w7. Pero éste funciona a la perfección:

Después de cada Lines.Add('...') esto sigue:

SendMessage(RichEditMemo.Handle, WM_VSCROLL, SB_LINEDOWN, 0); 

encontrados en: http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10120212.html

Answer 2

Posiblemente, para ahorrar algo de dinero se podría adaptar esta a desplazarse por una DBMemo:

EchoMemo.Lines.Add('A Line of text or more'); 
EchoMemo.SelStart := EchoMemo.GetTextLen; 
EchoMemo.SelLength := 0; 
EchoMemo.ScrollBy(0, EchoMemo.Lines.Count); 
EchoMemo.Refresh; 

utilizo para una pantalla de registro.

Answer 3

¡Para una tarea tan simple, no necesita comprar un componente comercial! Todo lo que necesita hacer es enviar un mensaje de EM_LINESCROLL a que el control de notas, para que sea desplazarse hasta la última línea:

procedure ScrollToLastLine(Memo: TMemo); 
begin 
    SendMessage(Memo.Handle, EM_LINESCROLL, 0,Memo.Lines.Count); 
end; 

Si la nota es de sólo lectura a los usuarios y se actualiza automáticamente por la aplicación, puede poner una llamada al procedimiento anterior en su controlador de eventos OnChange, de modo que cada vez que se cambie el texto dentro de la nota, se desplace automáticamente a la última línea.

Answer 4

También puede utilizar Memo.GoToTextEnd; cuando sea necesario, por ejemplo dentro de un evento onchange. No es un efecto de desplazamiento automático adecuado, pero puede ser útil en situaciones similares.