如何动态改变窗体的图标

Question

如何动态改变窗体左上角的图标

Answer 1

//刚测试成功
procedure TForm1.FormCreate(Sender: TObject);
var
  ainco:TIcon ;
begin
  with ainco do
  begin
    ainco := TIcon.Create ;
    LoadFromFile('c:\windows\Winupd.ico');
  end;
  Application.Icon :=ainco;
end;

Answer 2

to saien
如何将多个图标包含到可执行文件中，在运行时动态改变窗体左上角的图标

Answer 3

复杂点可以做成res文件加载进工程，然后动态调用，简单点可以放几个image控件，把每个图标加进去
示例：
yourfrom.Icon.Handle := Image1.Picture.Icon.Handle;
yourfrom.Icon.Handle := Image2.Picture.Icon.Handle;

Answer 4

MyIco Ico 1.ico保存为ico.rc