delphi timer 倒计时

Question

我做了一个答题程序，想在答题页面一出现的时候开始倒计时60秒，时间到的时候发出蜂鸣，提示时间到，不用蜂鸣，用提示框也可以，代码怎样写，蜂鸣函数是什么，谢谢

Answer 1

先定一个变量 比如 i ：= 60；
timer设置为1秒，然后执行timer事件，每次 i:=i-1;当i=0时即到时

Answer 2

用Timer吧，直接倒计时。蜂鸣，可以直接用Beep（）

Answer 3

Beep（）函数就"嗒"一声就没了，有没有声音多些的

Answer 4

对了，或者用PlaySound来实现。uses mmSystem;PlaySound(PChar(S_Name),0,SND_FILENAME or SND_ASYNC);

Answer 5

倒计时二楼说的就是。S_Name是你自己需要的声音文件名，包括扩展名在内，比如 S1.wav