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;
——————————
如果问题解决请及时结帖
相关问答:
问问各位高手,1.ACCESS数据库能够存储图片格式的内容吗(JPEG BMP),如果可以应该用什么格式
2.为了正确显示数据库中的图片delphi中应用到那些控件
......
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#:
& ......
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 ......
从数据里读出一些数据放到一个listview里 然后用户要搜索‘跑车’ 我就要把只要有跑车字眼的数据都取出来比如’法拉利跑车‘ 请问 这个字符串怎么比较呀? 不能在数据库里写存储过程来取,只能在当前的listvie ......