| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
juniorsoftcb
Aprendiz
Registrado: Domingo, 21 de Setembro de 2008
Mensagens: 107
Localização: Casa Branca-SP
|
 Enviada: Seg Jan 16, 2012 1:48 pm Assunto: Como colocar o conteúdo de um TImage na areá de trabalho ? |
 |
|
Olá amigos !
Tenho um componente TImage que exibe uma imagem, agora preciso joga-la na área de trabalho.
Tentei o
SaveToClipboardFormat();
Mas não sei quais parãmetros e como passalos a procedure ?
Recorro aos colegas !
Obrigado ! |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Seg Jan 16, 2012 1:58 pm Assunto: |
|
|
Boa tarde
Não testei, mas confira o link que segue:
http://edn.embarcadero.com/article/29037
Espero que seja útil.
Editado pela última vez por imex em Qua Mar 08, 2023 10:49 am, num total de 2 vezes |
|
| Voltar ao Topo |
|
|
juniorsoftcb
Aprendiz
Registrado: Domingo, 21 de Setembro de 2008
Mensagens: 107
Localização: Casa Branca-SP
|
| Enviada: Seg Jan 16, 2012 2:34 pm Assunto: |
|
|
Obrigado amigo, mas o q eu preciso é
SaveToClipboardFormat(?????,?????,?????); |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Seg Jan 16, 2012 2:53 pm Assunto: |
|
|
Se você quer copiar a imagem para a área de transferência, experimente mais ou menos desta forma:
| Código: | var
MyFormat : Word;
AData : THandle;
APalette : HPALETTE;
begin
Image1.Picture.SaveToClipboardFormat(MyFormat, AData, APalette);
ClipBoard.SetAsHandle(MyFormat, AData); |
Espero que seja útil. |
|
| Voltar ao Topo |
|
|
juniorsoftcb
Aprendiz
Registrado: Domingo, 21 de Setembro de 2008
Mensagens: 107
Localização: Casa Branca-SP
|
| Enviada: Seg Jan 16, 2012 3:03 pm Assunto: |
|
|
| imex escreveu: | Se você quer copiar a imagem para a área de transferência, experimente mais ou menos desta forma:
| Código: | var
MyFormat : Word;
AData : THandle;
APalette : HPALETTE;
begin
Image1.Picture.SaveToClipboardFormat(MyFormat, AData, APalette);
ClipBoard.SetAsHandle(MyFormat, AData); |
Espero que seja útil. |
CERTINHO ! éra isso mesmo !!!
Mas sem querer abusar ? E recortar ???
Valeu amigo !!! |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Seg Jan 16, 2012 3:36 pm Assunto: |
|
|
Experimente executar o código abaixo depois de copiar para limpar a imagem:
| Código: | | Image1.Picture := nil; |
Espero que ajude. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
