(Resolvido) DUVIDA EDIT

[DevilMan]

Eu preciso de ajuda; precisava de um código que quando eu clicasse no Edit automaticamente se copiava o texto que estava dentro dele

tipo igual ta na imagem, quando clicar no edit o texto é copiado automaticamente e aparece uma mensagem do tipo: Texto Copiado;

Agradecido.

Edited September 9, 2011 by DevilMan

[Marcos Friol]

Eu preciso de ajuda; precisava de um código que quando eu clicasse no Edit automaticamente se copiava o texto que estava dentro dele

tipo igual ta na imagem, quando clicar no edit o texto é copiado automaticamente e aparece uma mensagem do tipo: Texto Copiado;

Agradecido.

Olá Amigo, tente utilizar o clipboard como se teclasse Ctrl+C

Declare na cláusula Uses a Unit ClipBrd

Comando exemplo:
   
    Numero1 := Edit1.Text;
    Clipboard.AsText := Numero1;  --> Feito isso o valor do edit1 será copiado para a área de transferência do Windows, ou seja, teclando Ctrl+V este valor será colado no lugar que desejar, inclusive fora de seu sistema, no notepad ou word por exemplo.

Para mostrar a mensagem pode utilizar ShowMessage:
    ShowMessage('Texto Copiado');

Para limpar o dado salvo na memória utilize assim:
    ClipBoard.Clear;

Espero que tenha ajudado.

Até.

Desculpe, faltou informar para colocar este codigo no evento onclick do edit que deseja copiar para a memória.

Edited September 10, 2011 by Marcos Friol

[DevilMan]

Muito obrigado amigo era exatamente isso que eu precisava.