小弟正在做一个屏保软件,有两个问题请教大侠:
1.想加入背景音乐,源文件是MP3,有3M,最好用什么工具把它转换成那一种文件,又怎样用代码加入,播放音乐要循环.
2.软件有6种动画特效,如百叶窗,旋转等,有6个控件都分别加载了图片,怎样随机产生一个数字随机调用一幅图片,不用CASE语句.
var
k:integer;
begin
k:=radom(6);//随机产生一个数,让它调用IMMAGEK.
image[k].visible:=true;
end;
上面的语句编译不过去,怎样改进它.
谢谢.
1.想加入背景音乐,源文件是MP3,有3M,最好用什么工具把它转换成那一种文件,又怎样用代码加入,播放音乐要循环.
2.软件有6种动画特效,如百叶窗,旋转等,有6个控件都分别加载了图片,怎样随机产生一个数字随机调用一幅图片,不用CASE语句.
var
k:integer;
begin
k:=radom(6);//随机产生一个数,让它调用IMMAGEK.
image[k].visible:=true;
end;
上面的语句编译不过去,怎样改进它.
谢谢.
解决方案 »
- stringgrid GridLineWidth行列分开
- 轻松50分:求一段字符串处理的程序,寻找字符串中所有的email地址并自动替换为其他email地址
- 求代码:无闪烁地滚动PANEL。
- indy控件idtcpserver/idtcpserver问题
- 哪里有单独安装 PARADOX 的程序?
- 各位大虾,请教一下DLL方面!
- 一个关于StringGrid的问题,关注!
- 如何给 TAdapterField 对象赋值???
- 请教各位如何解决这个新增变修改的问题
- delphi中没有SetClIpCursor这个API函数
- 哪有Delphi 6 Update Pack 2免注册、免费下载?
- dbgrid<=>access( txt ,excel)的导入导出
the result may equal 0
and you write wrong
k:integer;
begin
Randomize;
k:=random(6);//随机产生一个数,让它调用IMMAGEK.
image[k].visible:=true;
end;
k:integer;
begin
Randomize;
k:=RandomRange(1,6);//随机产生一个数,让它调用IMMAGEK.
image[k].visible:=true;
end;