Al borrar un Timage me da error
 

Estoy intentando de hacer este truco, de extraer el icono de un archivo a un Timage, el problema es que si uso el truco varias veces seguidas no se borra el icono anterior que había en el Timage y me pone uno encima y se ven varios iconos al principio del codigo intento poner image1.free; pero me da error, como puedo areglar.

Espero que me aiga explicado bien saludos.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Icono:TIcon;
  Indice:word;
begin
  {borro la imagen}
  Image1.free;
  Icono:=TIcon.Create;
  {Indice del icono a extraer}
  {Icon Index to extract}
  Indice:=0;
  Icono.handle:=ExtractAssociatedIcon(hInstance,Pchar('c:\kk\dlib.zip'),Indice);
  Image1.Picture.Bitmap.Width:= Icono.Width;
  Image1.Picture.Bitmap.Height:= Icono.Height;
  Image1.Picture.Bitmap.Canvas.Draw(0,0,Icono);
  Icono.Free;
end;

Si utilizas el free del image1 lo estás eliminando de la memoria, debes utilizar el método clear, pero no sé si está a nivel de image1.clear, o image1.picture.clear, o image1.picture.bitmap.clear.

No tengo el Delphi a mano, pruebalo tu mismo.

Edu

No existe el clear en un timage

Hola,

Hazlo así:

Código Delphi [-]
Image1.Picture := nil;

O (puesto que no estoy seguro ahora y no recuerdo y no puedo probarlo) de este otro modo:

Código Delphi [-]
Image1.Picture.Bitmap := nil;

Quizás buscas algo como:

Código Delphi [-]
 image1.Picture.Assign(nil);

Un Saludo.

Funciona perfectamente, muchas gracias!!!