xhbuming 发表于 2012-7-8 19:40:35

delphi求助

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

prinsun 发表于 2012-7-25 16:59:22

var
Forms: array of TForm1;
CurIndex: Integer;


{$R *.dfm}

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

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


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

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

tlwangxd 发表于 2014-10-20 13:14:49

看看
页: [1]
查看完整版本: delphi求助