delphi求助

xhbuming

一个小程序，让图片不断弹出，但弹出一定程度资源耗尽，程序就死啦，怎么能让图片边创建边关闭原来的图片
程序地址http://115.com/file/e7xc1dkj#pandora进行曲.zip

prinsun

1. var
   
2.   Forms: array[0..100] of TForm1;
   
3.   CurIndex: Integer;
   
4. 
   
5. 
   
6. {$R *.dfm}
   
7. 
   
8. procedure TForm2.tmr1Timer(Sender: TObject);
   
9. begin
   
10.    if Assigned(Forms[CurIndex]) then
    
11.    begin
    
12.      Forms[CurIndex].Close;
    
13.      Forms[CurIndex].Free;
    
14.      Forms[CurIndex] := nil;
    
15.    end;
    
16. 
    
17.    Forms[CurIndex] := TForm1.Create(Self);
    
18.    Forms[CurIndex].Show;
    
19.    Inc(CurIndex);
    
20.    if CurIndex > 100 then CurIndex := 0;
    
21. 
    
22. 
    
23. end;
    

复制代码

此外Unit1中的FormCreate事件中，要改一下：
Self.Left:=x;
Self.top:=y;

经测试，101个窗体下，耗费了200多M的内存。。。:D 不过歌曲蛮好听的。

tlwangxd

看看