Foco em texto no Richedit

[thuago]

Bom pessoal eu estou usando esse código em um button

Código:

RichEdit1.Text :=RichEdit1.Text+'Texto que será imprimido no RichEdit';

Mais e o seguinte faz de conta que eu estou na linha 10 ai vou la e click no botão ele adicionar o texto na linha 10, mais não continua na linha o curso o seja a barrinha para digita volta para linha 1

como resolvo isso ?

forte abraço

[thuago]

não nada ninguém ?

[Douglas Soares]

Tenta assim:

var
tam : Integer;
begin
RichEdit1.Text :=RichEdit1.Text+' Texto que será imprimido no RichEdit';
tam := RichEdit1.Lines.Count;
SendMessage(RichEdit1.Handle, EM_LINESCROLL, 0, tam);
end;

Abraços

[thuago]

Amigo seu codigo não deu certo quando adiciono o texto a barra de digita ela não continua na mesma linha que o texto foi adicionado ela volta para a primeira linha do richedit

alguém resolve ?

[Douglas Soares]

Dê uma olhada nesse link:

http://delphi.about.com/cs/adptips2001/a/bltip0801_2.htm

Abraços

[thuago]

Dê uma olhada nesse link:

http://delphi.about.com/cs/adptips2001/a/bltip0801_2.htm

Abraços

Não me ajudou muito, não entendi nada .. :(

Alguém pode ajudar ?

Editado Setembro 27, 2010 por thuago