Différencier les icônes des Forms

Bonjour,

en FMX j'essaie de différencier les icônes des forms de mon projet quand il est compilé sous Windows comme on le fait en VCL ou en Lazarus. J'arrive bien à le faire à partir d'un code Lazarus justement qui modifie également l'icône du systray, d'ailleurs il était fait pour cela ! Mais je ne veux modifier que l'icône de la fenêtre. Evidemment en OS X le problème ne se pose pas ;)

Merci. Zac.

OK. C'est bon. Enfin j'espère que la solution n'était pas plus évidente, genre un sous-sous-menu dans l'Inspecteur d'objet de la Form permettant de préciser l'icône :mrgreen:. J'ai bien regardé mais je n'ai rien vu.

Il m'a fallu m'y reprendre à 2 fois. J'ai trouvé sur le Web un code presque exploitable directement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

{$IFDEF MSWINDOWS} uses Winapi.Windows, Winapi.Messages; procedure SetFormIcons(FormHandle: HWND; SmallIconName, LargeIconName: string); var hIconS, hIconL: Integer; begin hIconS := LoadIcon(hInstance, PChar(SmallIconName)); if hIconS > 0 then begin hIconS := SendMessage(FormHandle, WM_SETICON, ICON_SMALL, hIconS); if hIconS > 0 then DestroyIcon(hIconS); end; hIconL := LoadIcon(hInstance, PChar(LargeIconName)); if hIconL > 0 then begin hIconL := SendMessage(FormHandle, WM_SETICON, ICON_BIG, hIconL); if hIconL > 0 then DestroyIcon(hIconL); end; end; {$ENDIF}

---

Et dans le RC de l'application (une seule icône suffira, avec le même alias que la form, ici "Form1"). Les ressources sont très faciles à utiliser en Delphi, un peu plus compliquées en Lazarus.

Citation:

---

Form1 ICON "images\\wForm1\\wForm1.ico"

---

Appel de la méthode dans TForm1 : il faut modifier le type de Handle avec FMX.Platform.Win

Code:

---

1 2 3 4 5 6 7 8

{$IFDEF MSWINDOWS} uses FMX.Platform.Win, {$ENDIF}   procedure TForm1.FormCreate(Sender: TObject); begin SetFormIcons(FMX.Platform.Win.FmxHandleToHWND(handle), Self.Name, Self.Name); end;

---

Mais Avertissement :
[dcc32 Avertissement] wForm1.pas(140): W1000 Le symbole 'FmxHandleToHWND' est déprécié: 'Use WindowHandleToPlatform instead'

Soit

Code:

---

1 2 3 4

procedure TForm1.FormCreate(Sender: TObject); begin SetFormIcons(FMX.Platform.Win.WindowHandleToPlatform(handle).Wnd, Self.Name, Self.Name); end;

---

Comme d'habitude, s'il y a plus simple ou mieux, je suis preneur. Cordialement. Zac.