Como inserir caracteres em um RichText na posição do cursor
01/09/2004
0
Olá a todos, gostaria de saber como posso inserir caracteres (palavras, números, etc), na posição onde se encontra o cursor de texto ( | ), num componente RichText ou Memo clicando num botão.
Ex.:
- Antes de clicar no botão:
Falta a palavra | «-cursor de texto
- Ao clicar no Botão 1 (que contém a palavra ´texto´)
Falta a palavra texto| «-cursor de texto
Jc
Curtir tópico
+ 0
Responder
Posts
04/09/2004
Bon Jovi
Nao entendi bem o exemplo da sua questao, mas veja se é isso q deseja:
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelText := RichEdit1.SelText + Edit1.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelText := RichEdit1.SelText + Edit1.Text;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)