Skift af Application.Icon on the fly ?

hmm hvis du har det i en res kan du gøre sådan:
Application.Icon.Handle := LoadIcon(HInstance, 'BOTTLE1') ;

Fandt det her, det kan jo ændres til imagelist:
http://www.swissdelphicenter.ch/torry/showcode.php?id=146

Jeg har dem nu i en TImageList ;-)

Hvodan får jeg listet billedet over fra ImageListen ??

var
  MyImage: TImage;
begin
  try
    MyImage:= TImage.Create;
    MyImage.Picture:= ?????? ImageList1.???
    Application.Icon:= MyImage.Picture.Icon;
  finally
    MyImage.Free;
  end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ImageList1.GetIcon(0,Application.Icon);
end;


Ændrer application icon til det første "billede" i imagelisten.

Stoney

dkn> Tak for dine bud

Stoney> Du er en stjerne