Olá galera, nesta Quick Tips, irei mostrar como carregar em um Image uma imagem que esteja no Clipboard.

 

Vamos da uses em Clipbrd.

 

Agora adicione

1 BitBtn

1 Image

 




No onClick do BitBtn – Ao copiarmos uma imagem pelo Windows e depois clicarmos no BitBtn veremos a imagem sendo carregada no Image.

 

procedure TForm6.BtnCopiarClick(Sender: TObject);

begin

  if Clipboard.HasFormat(CF_BITMAP) then

    Image1.Picture.Bitmap.Assign(Clipboard) ;

end;

end.

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br