小弟正在做一个屏保软件,有两个问题请教大侠:
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;
上面的语句编译不过去,怎样改进它.
谢谢.
解决方案 »
- 如何在子窗体关闭的同时关闭主窗体
- 怎么获取 hid脚踏开关的 开关状态?
- 怎么在DBGridEh里面修改数据库的记录数据?在上面改了之后按Enter键生效。
- 如何去除RichEdit中的默认字符串 'RichEdit'
- DELPHI的字符串
- 小弟从今天开始将全面学习delphi,望各路高手不吝赐教!
- 求购一简单问题的解答!
- 为什么我的可执行程序fc.exe放到其他机器上不能运行阿,数据库是oracle817,用的是ADO连接,大家有没有碰到这种情况阿??
- 高分求救!!!!
- delphi下的dll
- 哪有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;