Tuesday, 16 December 2008

Visualizar siempre la última línea añadida en un TMemo o TRichEdit

Para que al añadir líneas en un TMemo o TRichEdit siempre muestre la última línea, hay que llamar al método del Scroll del componente.



Lo podemos hacer con una de las siguientes maneras:



procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.Lines.Add(DateTimeToStr(now) + ' ' + 'Mensaje de prueba');
SendMessage(RichEdit1.Handle, EM_SCROLL, SB_LINEDOWN, 0);
end;

O de estra otra manera:

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.Lines.Add(DateTimeToStr(now) + ' ' + 'Mensaje de prueba');
RichEdit1.Perform( EM_SCROLL, SB_LINEDOWN, 0);
end;

0 comments:

Post a Comment