J'utilise le code de delphicool pour afficher un icone d'un fichier res sur la form :

[code]procedure TForm1.Button9Click(Sender: TObject);
 var
  Icone: TIcon;
  begin
    Icone := TIcon.Create;
    Icone.Handle := LoadIcon(HInstance, 'MONICON');
    Icon := Icone;
    Image1.Picture.Icon := Icon;
    Icone.free;
end;[/code]

Sauf qu'en appuyant sur ce bouton j'aimerais que l'icone remplace l'icone du exe du project
Donc je supprime [code]Image1.Picture.Icon := Icon;[/code]

Mais comment faire pour que l'icone s'affiche sur l'exe du project en remplacant l'ancien ??

Application.Icon := Image1.Picture.Icon;

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Attention, quand tu écris :
   Icon := Icone;
et qu'ensuite tu détruis Icone, alors la propriété Icon de ta fiche pointe dans le vide...
(idem pour Image1.Picture.Icon := Icon;)

Au lieu d'affecter directement, utilisation la méthode Assign qui réalise une copie :

procedure TForm1.ChangeIcon;
var
  Icone: TIcon;
begin
  Icone := TIcon.Create;
  try
    Icone.Handle := LoadIcon(HInstance, 'ICON3');
    //Remplace l'icone de l'application dans la barre des tâches
    Application.Icon.Assign(Icone);
    Icone.handle := LoadIcon(HInstance, 'ICON2');
    //Remplacer l'icone de la fiche
    Icon.Assign(Icone);
  finally
    Icone.Free;
  end;
end;

Comme tu l'as surement remarqué, c'est la propriété Icon de l'objet Application qu'il faut affecter et non Icon simplement qui n'agit que sur la fiche où ton code figure.

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Bien vu DelphiProg

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Je ne comprend pas trop car le code ci dessus change bien l'icone dans la barre des taches mais sa ne change pas l'icone du exe du project

Ce que l'on te propose fait le changement en cours d'exécution, mais ne conserve pas ce changement à la fin du processus...

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

Mais alors comment etablir un code qui permet de changer l'icone de l'exe du project pour une indefinite ?

J'ai 2 boutons et 2 icones ds une ressource, j'aimerais pouvoir les loader simplement et pouvoir garder l'icone loader pdt tt le temps

Où veux-tu en venir ?
Si c'est pour changer l'icone de manière permanente alors autant le faire à la conception (voir Projets/Options/Application) et point final.

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Non justement car dans Projets/Options/Application/icone on ne px rien mettre, c comme si la fenetre est creer en c++ avec les api : J'aimerais pouvoir remplacer l'icone en appuyant sur un des 2 boutons (icone dans ressource). C'est a dire un choix d'icone et pouvoir les loader ...

J'espere que vous me comprenez !

Comment ça on ne peut rien mettre ???? C'est pas normal...

@+
Bonne Prog'
Nico

---

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !