满意答案
做了一个延时事件,程序如下:
自定义事件 bool dalay(long start,long num1,bool yesno1)
//**********************************************************************
// start为初始值,由外部变量赋值,可用做事件的执行条件
// num1为终止值,由num1-start所得差值为延时时间值。
// yesno1为循环条件,如果为1,则延时继续循环,如果为0,则停止
// value 为返回值,为事件触发条件,当value=1时,执行事件。
//************************************************************************
if(num1>start)
start=start+1;
bool value;
if(start==num1)
value=1;
if(yesno1==1 && start>num1)
{
value=0;start=0;
}
if(start>=num1 && yesno1==0)
value=1;
message=strfromint(start,10);
return value;
以上程序本人测试通过,请参考。
30分享举
相关资源:专业LED灯光动画制作软件(安装后直接用!)_setup安装包-Delphi工具…
声明:本站部分文章及图片源自用户投稿,如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢!