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

[xiaoxuan777]

如上。

[ysycrazy]

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

[myadvice]

配合Timer组件，你还可以实现定时更换Icon

即在Timer的OnTime事件中加入如楼上兄弟所言的语句

[xiaoxuan777]

其中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;