Como mandar ou recuperar dados da área de transferência?
Nesta dica será visto como adicionar ou obter dados da
Área de Transferência do Windows através do Delphi.
Neste caso, os dados são texto.
É necessário estar declarado ClipBrd na seção uses,
em verões unicode declare Vcl.Clipbrd.
Exemplos de uso:
Colocando o conteúdo de um edit na Área de Transferência
1
| Clipboard.asText := Edit1.Text; |
Clipboard.asText := Edit1.Text;
Colocando o conteúdo da Área de Transferência em um edit
1
| edit1.Text := Clipboar.asText; |
edit1.Text := Clipboar.asText;
Com o objetivo de evitar erros, é recomendável verificar se o conteúdo é um texto
antes de colocar o conteúdo da Área de Transferência em um edit.
Você pode fazer o teste utilizando o código abaixo:
verifique se o conteúdo é um texto
1
| if Clipboard.HasFormat(CF_TEXT) then |
if Clipboard.HasFormat(CF_TEXT) then
Como dito anteriormente, este código irá verificar se o conteúdo da Área de
Transferência é realmente um texto.
-
InfusTec
-
7.624 views
- 0 comentários
- 31 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo