Adicionar dados a Área de Transferência através do Delphi

Olá pessoal, postarei um simples exemplo de como copiar o conteudo de um edit e jogá-lo para a Área de Transferência.

Para isso, devemos declarar no uses a unit ClipBrd.

Vamos ao exemplo:

Colocando o conteúdo de um edit na Área de Transferência

Clipboard.asText := Edit1.Text;

Colocando o conteúdo da Área de Transferência em um edit

edit1.Text := Clipboar.asText;

obs.:  antes de colocar o conteúdo da Área de Transferência em um edit, verifique se o conteúdo é um texto, para isso use:

if Clipboard.HasFormat(CF_TEXT) then

isto irá verificar se o conteúdo da Área de Transferência é um texto.

Espero ter ajudado, até a próxima.

2 respostas para Adicionar dados a Área de Transferência através do Delphi

  1. Tiago disse:

    Muito obrigado foi de muitissima ajuda amigo e muito simples obrigado

  2. Augusto Melo disse:

    exatamente o que eu estava procurando, vlw

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: