如何动态设定窗口的Icon。。多谢！

Question

如上。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Icon.LoadFromFile('d:\1.ico');
end;

Answer 2

配合Timer组件，你还可以实现定时更换Icon即在Timer的OnTime事件中加入如楼上兄弟所言的语句

Answer 3

其中childfrm是一个全局变量,tform类型。实例化后，使用以下的过程，为什么窗体图标老是不出来。。多谢！！
procedure Tmainform.initwindow(scaption: string);
var
  icondir:string;
begin
  if childfrm<>nil then
  begin
    icondir:=getcurrentdir+'\img\qq.ico';
    showmessage(icondir);
    with childfrm do
    begin
      Icon.LoadFromFile(icondir);
      caption:=scaption;
      top:=(mainform.clientheight-childfrm.Height) div 2;
      left:=(mainform.clientwidth-childfrm.Width) div 2;
    end;
  end;
end;