Delphi 10.2でFireMonkeyフォームアイコンランタイムを設定する方法

Question

Delphi 10.2 TokyoでFiremonkey Frameworkを使用してWindowsおよびOS X用のアプリケーションを作成しています。アプリケーションまたはフォームアイコンを動的に設定することはできません。

VCLプロジェクトで、私は次のコードを使用しました：

Form1.Icon.LoadFromFile() 

または

Application.Icon.LoadFromFile() 

をしかしFMXには、このようなプロパティやメソッドはありません。 Project - > Optionsメニュー以外の方法でプロジェクトアイコンを設定する方法はありますか？

Answer 1

は、あなたの用途リスト{$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;