Compañeros del club.
Estoy llenando un campo Tmemo con datos de una base de datos, y el campo contiene un scroll bar vertical. Uso Delphi 7.
El asunto es que cada vez que se llena el campo TMemo, se queda mostrando la última linea que se llenó, y para ver la primera tengo que usar el scroll bar para verla. Lo que necesito es que siempre que se llene el campo TMemo, se muestra la primera linea de texto, y no la última.
Estoy tratando de hacer lo siguiente pero no me funciona.
Código Delphi
[-]
Memo1.Clear;
while not QRYLOGS.Eof do
begin
Memo1.Lines.Append(QRYLOGS['Mensaje']);
Memo1.Lines.Append('---o---');
QRYLOGS.Next
end;
Memo1.Lines[0];
Memo1.SelStart := 0;
Memo1.SetFocus;
NumFolio.SetFocus;
El último setfocus lo utilizo para dejar el campo que necesito que se teclee activado, y que no quede activado el campo Memo.
Gracias de antemano por su amable ayuda.
Saludos y un excelente año 2009.