Como Copiar Conteúdo De Um Timage Para Área de Transferência

Delphi

18/08/2004

Olá pessoal,

Como faço para copiar o conteúdo de um TImage para Área de Transferência?

Grato,

Ilano.


Ilanocf

Ilanocf

Curtidas 0

Respostas

Okama

Okama

18/08/2004

Inclua Clipbrd na seção USES

Clipboard.Assign(Image1.Picture);


GOSTEI 0
Nildo

Nildo

18/08/2004

Se a imagem que estiver lá dentro for um TBitmap, pode ser feito desta maneira:

1 - Declare a unit [b:068c2bbcd9]Clipbrd[/b:068c2bbcd9]
2 - Utilize o comando [b:068c2bbcd9]Clipboard.Assign(Image1.Picture.Bitmap);[/b:068c2bbcd9]

Espero tê-lo ajudado.


GOSTEI 0
Ilanocf

Ilanocf

18/08/2004

Valeu pessoal,

Deu certo.

Obrigado.


GOSTEI 0
Macario

Macario

18/08/2004

olá Programadores, bom dia.

Aproveitando o Topico como posso colar esta mesma imagem
em run-time???

Tipo tenho um aplicativo pra criar etiquetas, ai incluo uma figura como posso apos ter copiado ela pra area de transferencia, colar ela?


GOSTEI 0
Tatuweb

Tatuweb

18/08/2004

Declare Clipbrd em uses e utilize:

  if Clipboard.HasFormat (CF_PICTURE) then
    Image1.Picture.Assign(Clipboard);



GOSTEI 0
POSTAR