FireMonkey 标题栏的图标如何更换？

[Oerllin]

我需要把标题栏左侧的图标换掉，但是又不和应用的logo相同，请问大神该如何换？Windows，FireMonkey。

[堕落恶魔_Delphi]

在project->resources and images 里添加你的图标, 然后...

uses
  Winapi.Windows, Winapi.Messages,
  FMX.Platform.Win;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  SendMessage(FmxHandleToHWND(Handle), WM_SETICON, ICON_BIG, LoadIconW(MainInstance, PChar('Icon_1')));
end;