Icone - Ressource

Question

J'utilise le code de delphicool pour afficher un icone d'un fichier res sur la form : 

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;

Sauf qu'en appuyant sur ce bouton j'aimerais que l'icone remplace l'icone du exe du project
Donc je supprime Image1.Picture.Icon := Icon;

Mais comment faire pour que l'icone s'affiche sur l'exe du project en remplacant l'ancien ??

ni69 · Answer

Application.Icon := Image1.Picture.Icon;


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_Delphiprog · Answer

Attention, quand tu &#233;cris :
   Icon := Icone;
et qu'ensuite tu d&#233;truis Icone, alors la propri&#233;t&#233; Icon de ta fiche pointe dans le vide...
(idem pour Image1.Picture.Icon := Icon;)

Au lieu d'affecter directement, utilisation la m&#233;thode Assign qui r&#233;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&#226;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&#233;, c'est la propri&#233;t&#233; Icon de l'objet Application qu'il faut affecter et non Icon simplement qui n'agit que sur la fiche o&#249; ton code figure.

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

ni69 · Answer

Bien vu DelphiProg 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

frayst · Answer

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

ni69 · Answer

Ce que l'on te propose fait le changement en cours d'ex&#233;cution, mais ne conserve pas ce changement &#224; la fin du processus...


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

frayst · Answer

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

cs_Delphiprog · Answer

O&#249; veux-tu en venir ?
Si c'est pour changer l'icone de mani&#232;re permanente alors autant le faire &#224; la conception (voir Projets/Options/Application) et point final.

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

frayst · Answer

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 !

ni69 · Answer

Comment &#231;a on ne peut rien mettre ???? C'est pas normal...


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_Delphiprog · Answer

Quelle version de Delphi utilises-tu ?
De Delphi 1 &#224; Delphi 8, c'est la m&#234;me d&#233;marche : dans Projets/Options/Application il y a un bouton intitul&#233; "Charger icone" sur lequel il suffit de cliquer.

Apr&#232;s v&#233;rification, il s'av&#232;re que si l'on supprime la ligne {$R *.res} dans le fichier du projet, alors effectivement, l'icone et le bouton sont inactifs (entre autres).
Tu n'aurais pas, par m&#233;garde, supprim&#233; cette ligne ? 

NB : la prochaine fois, soit plus clair quand tu poses une question 

Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

Icone - Ressource

10 réponses

Votre réponse