Discussion :

[Zacheus]

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.

[Zacheus]

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 . 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.