delphi小疑问
请问如何设置一个按钮，一点到它就不断执行按钮上加载的事件，知道点击另一个按钮才会停止，因为写了个选号的小程序，希望可以像电视上那样，一点就不断的刷 而不是点一下刷一下！！
两种方法
1.用timer去控制执行，两个按钮，一个启动timer，一个停止timer
2.做一个变量，代表是否执行，一个按钮事件中，判断这个变量，如果是false就不执行了
能不能写详细点呢，小弟弟我刚入门不久
选号的代码写在时钟Timer1里，然后通过按钮切换Timer1的Enabled属性
——————————
如果问题解决请及时结帖
timer的做法比较简单
按钮点击事件里
while true do begin
if not next then break;
加载的代码
app****.p***message;
end;
放两个按钮、一个编辑框，和一个时钟（System组件页）。
把时钟的Enabled属性设为False，Interval属性设为100，在OnTimer事件里头写上选号代码，如随机生成1 ~ 100的整数：
Randomize();
Edit1.Text := IntToStr(Trunc(Random(100)) + 1);
按钮1启动时钟，代码如：
Timer1.Enabled := True;
按钮2停止时钟，代码如：
Timer1.Enabled := False;
——————————
如果问题解决请及时结帖
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
......
delphi 函数：
function RB(A: longint): longint;
begin
Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24);
end;
我转成C#：
& ......
请问dbook V1.10版本的源代码（delphi）是不是运行不了啊，在网上下了好多，打开主窗体的时候总是报错,之前自学c#，才刚开始，现在老师布置任务让我改dbook V1.10版本的源代码，抓狂了，一点头绪也没有？各位大侠给� ......
project project3.exe raised exception class ERemotableException with message 'access violation at address 004037B in module'project2.exe'.read of address 00000003'.process stopped.use ......
