limpando uma imagem
Olá...
no meu form tenho uma opção de adicionar imagem funciona ok porem nao consigo limpar a imagem que tá la e deixar sem nenhuma imagem
uso o seguinte:
um componente openpic
no botao de inserir
try
OpenPic.execute;
image1.Picture.LoadFromFile( OpenPic.filename);
except
messagedlg(´Nome do arquivo com foto do cliente não foi informado´, mtwarning, [MBOK], 0);
end;
como faço pra limpar????
no meu form tenho uma opção de adicionar imagem funciona ok porem nao consigo limpar a imagem que tá la e deixar sem nenhuma imagem
uso o seguinte:
um componente openpic
no botao de inserir
try
OpenPic.execute;
image1.Picture.LoadFromFile( OpenPic.filename);
except
messagedlg(´Nome do arquivo com foto do cliente não foi informado´, mtwarning, [MBOK], 0);
end;
como faço pra limpar????
Antao
Curtidas 0
Respostas
Dhiogo
21/09/2003
tenta
try
OpenPic.execute;
image1.picture.graphic:=nil;
image1.Picture.LoadFromFile( OpenPic.filename);
except
messagedlg(´Nome do arquivo com foto do cliente não foi informado´, mtwarning, [MBOK], 0);
end;
try
OpenPic.execute;
image1.picture.graphic:=nil;
image1.Picture.LoadFromFile( OpenPic.filename);
except
messagedlg(´Nome do arquivo com foto do cliente não foi informado´, mtwarning, [MBOK], 0);
end;
GOSTEI 0