Comment définir l'exécution de l'icône de formulaire FireMonkey dans Delphi 10.2

Question

Je crée une application pour Windows et OS X en utilisant Firemonkey Framework avec Delphi 10.2 Tokyo et je ne peux pas définir dynamiquement une icône d'application ou de formulaire.

Dans projet VCL J'ai utilisé le code suivant:

Form1.Icon.LoadFromFile() 

ou

Application.Icon.LoadFromFile() 

Mais il n'y a pas de telles propriétés ou méthodes FMX. Est-il possible de définir l'icône du projet autrement que dans le menu Projet -> Options?

Answer 1

Ajouter à votre liste uses {$IFDEF WIN32}WinApi.Windows,FMX.Platform.Win,{$ENDIF}

procedure setFormIcon(Form: TForm; FileName: String); 
    var Icon : NativeUInt; 
begin 
    {$IFDEF WIN32} 
    ICON := LoadImage(0,PWideChar(Filename),IMAGE_ICON,0,0,LR_LOADFROMFILE OR LR_DEFAULTSIZE OR LR_SHARED); 
    SetClassLong(FmxHandleToHWND(Form.Handle), GCL_HICON, icon); 
    {$ENDIF} 
end; 

procedure TForm1.btn1Click(Sender: TObject); 
begin 
    setFormIcon(Form1,'my icon path.ico'); 
end;