Buscar

Passar imagem bitmap como variável

Código

//ESTA DICA É SIMPLES,MAS AJUDA AOS INICIANTES.COMO
//TRANSFORMAR UMA IMAGEM NUMA VARIÁVEL:
//UMA IMAGEM DE UM IMAGE (IMAGE1) É PASSADO PARA OUTRO IMAGE
//(IMAGE2):
//ASSIM É MAIS FÁCIL TRABALHAR COM ELAS.


procedure TForm1.Button1Click(Sender: TObject);
var a:tpicture;
begin
a:=tpicture(image1.picture);
image2.picture:=tpicture(a);
end;                                

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Imagens
Adicionada dia: 18/08/07
Por: Almir Bispo Dos Santos Filho
Visualizada: 7986 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009