易截截图软件、单文件、免安装、纯绿色、仅160KB

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;


——————————
如果问题解决请及时结帖


相关问答:

delphi+access 图片显示、替换问题

问问各位高手,1.ACCESS数据库能够存储图片格式的内容吗(JPEG BMP),如果可以应该用什么格式
              2.为了正确显示数据库中的图片delphi中应用到那些控件
  ......

delphi 与 C# 位运算 有好大区别,请教各位!

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#:

& ......

delphi webservice 调用报错 急

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 ......

关于delphi字符串的问题!

从数据里读出一些数据放到一个listview里 然后用户要搜索‘跑车’ 我就要把只要有跑车字眼的数据都取出来比如’法拉利跑车‘ 请问 这个字符串怎么比较呀?  不能在数据库里写存储过程来取,只能在当前的listvie ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号