如何在Delphi 10.2中設置FireMonkey窗體圖標運行時間

Question

我使用Delphi 10.2東京的Firemonkey Framework創建Windows和OS X應用程序，並且無法動態設置應用程序或窗體圖標。

在VCL項目中我用下面的代碼：

Form1.Icon.LoadFromFile() 

或

Application.Icon.LoadFromFile() 

但也有FMX沒有這樣的屬性或方法。除了在「項目」 - >「選項」菜單中，是否有任何方法設置項目圖標？

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;