limpando uma imagem

Delphi

21/09/2003

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????


Antao

Antao

Curtidas 0

Respostas

Dhiogo

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;


GOSTEI 0
POSTAR