Delphi如何让程序暂停、继续

[横行怡红院]

我想控制一组Panel控件循环，在循环过程中包含暂停、继续功能。该如何实现？
由于小弟初学，希望高手详细说明。多谢！

[youlostme]

我也来学习一下

[bdmh]

第一种：用线程控制，可以挂起和唤醒
第二种：写个循环，在循环中加入一个变量，用这个变量来控制循环中是否执行你的代码，还是空转执行
比如

while true do
begin
  if cando = 0 then
    DoYourAction
  else if cando = 1 then
    continue
  else
    break;
end;

[lhy]

啥叫"控件循环"?

如果你需要做一个一直工作的效果，最简单用Timer，停止时就把Timer的Enable给false了，恢复时把Timer的Enable给true了。

[vision2000]

[Quote=引用 3 楼 lhylhy 的回复:]
啥叫"控件循环"?

如果你需要做一个一直工作的效果，最简单用Timer，停止时就把Timer的Enable给false了，恢复时把Timer的Enable给true了。
[/Quote]

这个简单,用循环+睡眠不能立即处理事件

[Mit1208]

[Quote=引用 2 楼 bdmh 的回复:]
第一种：用线程控制，可以挂起和唤醒
第二种：写个循环，在循环中加入一个变量，用这个变量来控制循环中是否执行你的代码，还是空转执行
比如


Delphi(Pascal) code

while true do
begin
if cando = 0 then
DoYourAction
else if cando = 1 then
continue
……
[/Quote]

同意

[阿三]

用线程控制吧
在里面定义一个变量是否暂停,继续还是退出.

[blue_chun]

用timer
循环，
线程都可以吧

[横行怡红院]

[Quote=引用 2 楼 bdmh 的回复:]

第一种：用线程控制，可以挂起和唤醒
第二种：写个循环，在循环中加入一个变量，用这个变量来控制循环中是否执行你的代码，还是空转执行
比如

Delphi(Pascal) code

while true do
begin
if cando = 0 then
DoYourAction
else if cando = 1 then
continue
else
……
[/Quote]
能不能告诉我怎么在按钮押下时候创建并运行线程，多谢了

[lyhoo163]

自己实践吧：
1、使用Timer控件，通过指定变量，来开关Timer的Enable。
2、使用线程，这也是最好的（容易控制）。
3、通过windows的消息机制。

[Mit1208]

[Quote=引用 8 楼 hu851211 的回复:]
引用 2 楼 bdmh 的回复:

第一种：用线程控制，可以挂起和唤醒
第二种：写个循环，在循环中加入一个变量，用这个变量来控制循环中是否执行你的代码，还是空转执行
比如

Delphi(Pascal) code

while true do
begin
if cando = 0 then
DoYourAction
else if cando = 1 then
conti……
[/Quote]

百度...Delphi线程