| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
crisalbano
Novato
Registrado: Terça-Feira, 24 de Outubro de 2006
Mensagens: 93
|
 Enviada: Seg Out 01, 2007 8:44 am Assunto: Recortar - Copiar - Colar |
 |
|
Olá amigos, meu problema é o seguinte:
Tenho um form com
Edit01
Edit02
Edit03
e tenho 3 botões: Recortar, Copiar e Colar.
A pergunta é: quando eu clicar no botão "Recortar" como faço para
pegar o conteúdo que está marcado? E como sei em qual dos Edits está o foco neste momento?
Desde já agradeço a ajuda!
Abraço.
Cristiano. |
|
| Voltar ao Topo |
|
 |
Morto
Profissional
Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 520
Localização: Belo Horizonte, MG
|
| Enviada: Seg Out 01, 2007 9:06 am Assunto: |
|
|
Amigo...faça Assim
| Código: |
Procedure BotaoRecortarClick(sender)
var
i: integer;
VarTexto : string;
begin
for i:=0 to ComponentCount-1 do
if Components[i] is TEdit then
begin
If (Components[i] as TEdit).Focused then
begin
VarTexto:=(Components[i] as TEdit).SelText;
(Components[i] as TEdit).SelText := '';
end;
end;
end;
|
O recortar vai ficar assim...
Explicando mais ou menos, esse código vai percorrer todos os componenetes do Formulário até encontrar algum TEdit.
Quando encontrar, ele vai checar se o foco está nele...
Caso esteja ele vai copiar o texto selecionado para a variavel VarTexto e vai apagar o texto selecionado.....
Qualquer coisa postae
Abraços
André(Morto)
_________________
André Rodrigues |
|
| Voltar ao Topo |
|
|
crisalbano
Novato
Registrado: Terça-Feira, 24 de Outubro de 2006
Mensagens: 93
|
| Enviada: Seg Out 01, 2007 9:56 am Assunto: |
|
|
Legal André,
vou testar ainda hoje! obrigado pela ajuda!
Abraço.
Cristiano. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
