delphi求助

xhbuming

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

prinsun

var
  Forms: array[0..100] of TForm1;
  CurIndex: Integer;


{$R *.dfm}

procedure TForm2.tmr1Timer(Sender: TObject);
begin
   if Assigned(Forms[CurIndex]) then
   begin
     Forms[CurIndex].Close;
     Forms[CurIndex].Free;
     Forms[CurIndex] := nil;
   end;

   Forms[CurIndex] := TForm1.Create(Self);
   Forms[CurIndex].Show;
   Inc(CurIndex);
   if CurIndex > 100 then CurIndex := 0;


end;

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

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

tlwangxd

看看