Como inserir caracteres em um RichText na posição do cursor
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
Curtidas 0
Respostas
Jc
01/09/2004
Galera, por favor me deem uma força ai vai!
GOSTEI 0
Bon Jovi
01/09/2004
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;
GOSTEI 0