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; |
Colocando o conteúdo da Área de Transferência em um edit
1 | 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 |
Como dito anteriormente, este código irá verificar se o conteúdo da Área de
Transferência é realmente um texto.
