请教一个菜鸟问题-关于progressbar(50分)

  • 主题发起人 主题发起人 zslg1
  • 开始时间 开始时间
Z

zslg1

Unregistered / Unconfirmed
GUEST, unregistred user!
请教:要实现如下效果:
(1)用timer1来控制progressbar的position:
if progressbar1.position<100 then progressbar1.position:=progressbar1.position+10
else progressbar1.position=0
(2)当query1-beforeopen,触发timer1.enabled:=true,使进度条来回摆动;
(3)当query1-afteropen,触发timer1.enabled:=false;progressbar1.position=0,使进度条
归零,结束查询提示。
我用这样来提示查询,可是好象timer没用,不知如何解决?有何更好办法?多谢!
 
timer也可以的,只是在BeforeOpen时Timer.Enable := True
afteropen时Timer1.Enable := false;
别外根据情况设置Timer1.Interval,一般的一秒太长,数据库打开了,还没有触发.
感觉还不如你所愿的话那你自己建个线程吧.
 
你在Query的afterscroll事件中试试吧
 
都不行啊。。。
另建线程,怎么建,请指教?
 
继承TThead类,Override 其 Execute 方法,将自己要做的事写在其中,然后只需Create这个
线程,它会自动执行EXECUTE的
 
应该是TThread类
 
to louis319:
能贴出代码学习学习吗? 先谢了!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部