鱼C论坛

 找回密码
 立即注册
查看: 2787|回复: 2

delphi求助

[复制链接]
发表于 2012-7-8 19:40:35 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
一个小程序,让图片不断弹出,但弹出一定程度资源耗尽,程序就死啦,怎么能让图片边创建边关闭原来的图片
程序地址http://115.com/file/e7xc1dkj#pandora进行曲.zip
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-7-25 16:59:22 | 显示全部楼层
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 不过歌曲蛮好听的。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2014-10-20 13:14:49 | 显示全部楼层
看看
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-23 04:09

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表