Cambiar Icono de un Form en tiempo de ejecución
 

Hola compañeros !

Como puedo cambiar el icono de un Form en tiempo de ejecución, cargando para ello un icono que esté almacenado en un TImageList ?

He probado con

Código Delphi [-]
var
  Aux_Icon : TIcon;
...
 
MainForm.ImageList1.GetIcon(0,Aux_Icon);
MainForm.Icon := Aux_Icon;

pero en vez de cogerme la imagen con el índice 0 que está en el ImageList1, me coge el icono asignado al ejecutable :confused: .

Gracias

Ya lo conseguí ...

Me faltaba crear el TIcon.

Código Delphi [-]
var
  Aux_Icon : TIcon;
...
 
Aux_Icon := TIcon.Create;
MainForm.ImageList1.GetIcon(0,Aux_Icon);
MainForm.Icon := Aux_Icon;
...
Aux_Icon.Free;

También funciona sin la ayuda de TIcon ...

Código Delphi [-]
MainForm.ImageList1.GetIcon(0, TForm(MainForm).Icon);

lo que sí que me pasa es que entiendo que los iconos que se muestran son de 16x16 bits, y no sé si 256 colores o color de 32 bits. En cualquier caso, al reemplazar el icono del Form con el método arriba indicado, la imagen del icono en el form se 'distorsiona' y bien aparece con líneas en blanco, o no se vé con la misma calidad que si lo asigno directamente en el propiedad 'Icon' del 'Object Inspector'.

Desconozco el por qué.