定时器函数原型问题。。。 ( 积分: 20 )

//&nbsp;删除定时器<br>procedure&nbsp;TimerOff;<br>begin<br>&nbsp;&nbsp;if&nbsp;(hTimer&nbsp;&lt;&gt;&nbsp;0)&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;KillTimer(0,&nbsp;hTimer);<br>&nbsp;&nbsp;&nbsp;&nbsp;hTimer&nbsp;:=&nbsp;0;<br>&nbsp;&nbsp;end;<br>end;<br>procedure&nbsp;TimerProc();<br>begin<br>showmessage('1111');<br>end;<br>&nbsp;&nbsp;&nbsp;//&nbsp;安装定时器<br>procedure&nbsp;TimerOn(s:integer);<br>begin<br>&nbsp;&nbsp;if&nbsp;(hTimer&nbsp;&lt;&gt;&nbsp;0)&nbsp;then&nbsp;TimerOff;<br>&nbsp;&nbsp;hTimer&nbsp;:=&nbsp;SetTimer(0,&nbsp;0,&nbsp;s&nbsp;,&nbsp;@TimerProc);<br>end;<br><br>这样调用的话可以使用。。。<br>TimerOn(5000);<br>将在&nbsp;5&nbsp;秒后运行&nbsp;TimerProc();<br><br>但我如果想实现&nbsp;TimerOn(5000,@要运行的);&nbsp;这样调用呢？<br><br>应该把<br>&nbsp;&nbsp;&nbsp;//&nbsp;安装定时器<br>procedure&nbsp;TimerOn(s:integer);<br>begin<br>&nbsp;&nbsp;if&nbsp;(hTimer&nbsp;&lt;&gt;&nbsp;0)&nbsp;then&nbsp;TimerOff;<br>&nbsp;&nbsp;hTimer&nbsp;:=&nbsp;SetTimer(0,&nbsp;0,&nbsp;s&nbsp;,&nbsp;@TimerProc);<br>end;<br>怎么改了？？<br>分不多了，，不好意思啊！！！

我顶一下！

procedure&nbsp;TimerOff;<br>begin<br>&nbsp;&nbsp;if&nbsp;(hTimer&nbsp;&lt;&gt;&nbsp;0)&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;KillTimer(0,&nbsp;hTimer);<br>&nbsp;&nbsp;&nbsp;&nbsp;hTimer&nbsp;:=&nbsp;0;<br>&nbsp;&nbsp;end;<br>end;<br>procedure&nbsp;TimerProc();<br>begin<br>showmessage('1111');<br>end;<br>&nbsp;&nbsp;&nbsp;//&nbsp;安装定时器<br>procedure&nbsp;TimerOn(s:integer;&nbsp;Proc&nbsp;:&nbsp;Pointer);<br>begin<br>&nbsp;&nbsp;if&nbsp;(hTimer&nbsp;&lt;&gt;&nbsp;0)&nbsp;then&nbsp;TimerOff;<br>&nbsp;&nbsp;hTimer&nbsp;:=&nbsp;SetTimer(0,&nbsp;0,&nbsp;s&nbsp;,&nbsp;Proc);<br>end;<br><br>调用:<br>TimerOn(1000,&nbsp;@Timerproc);

接受答案了.