Apagar Imagem do TImage
Oi pessoal! Seguinte. Tenho um form com um TImage. Carrego a figura nele por um botão e queria colocar outro botão para apagar essa imagem. Tentei Image1.Picture.Free, Image1.Picture.Bitmap.FreeImage, mas nenhum desses funciona. Alguém sabe como?
Djorius
Curtidas 0
Melhor post
Macario
05/10/2005
8)
Image1.Picture := nil;
GOSTEI 3
Mais Respostas
Raimundo Pereira
05/10/2005
Usando o click de apenas um button e um listimagem
if Id_Foto=0 then
begin
Imagem_Play.Picture:=nil;
Lista_Imagens.GetBitmap(Id_Foto, Imagem_Play.Picture.Bitmap);
Id_Foto := Lista_Imagens.Count - 1;
end
else
begin
Imagem_Play.Picture:=nil;
Lista_Imagens.GetBitmap(Id_Foto, Imagem_Play.Picture.Bitmap);
Id_Foto:= Id_Foto-1;
end;
Agora tem outras n' maneiras de fazer, tudo indica da sua real necessidade.
Informe a sua real ideia e vamos ajudar-lo
if Id_Foto=0 then
begin
Imagem_Play.Picture:=nil;
Lista_Imagens.GetBitmap(Id_Foto, Imagem_Play.Picture.Bitmap);
Id_Foto := Lista_Imagens.Count - 1;
end
else
begin
Imagem_Play.Picture:=nil;
Lista_Imagens.GetBitmap(Id_Foto, Imagem_Play.Picture.Bitmap);
Id_Foto:= Id_Foto-1;
end;
Agora tem outras n' maneiras de fazer, tudo indica da sua real necessidade.
Informe a sua real ideia e vamos ajudar-lo
GOSTEI 0