16,741
社区成员
发帖
与我相关
我的任务
分享如何实现暂停功能？
界面上有3个按钮：begin、stop、pause
单击begin:开始计算
单击stop：计算终止
单击pause：计算暂停
delphi中如何实现
谢谢
...全文
请发表友善的回复…
发表回复
SonicX 2008-08-06
- 打赏
- 举报
建立一个线程对象
启动就是建立线程并开始运行
停止中断线程释放对象
暂停就是挂起线程
启动就是建立线程并开始运行
停止中断线程释放对象
暂停就是挂起线程
支持中文哦 2008-08-03
- 打赏
- 举报
主线程创建一个枚举变量，状态就3个。
eStart,ePause,eStop
在工作线程，每个循环都判断一下这个枚举变量的状态，根据状态，这个线程作出响应的反应。
while True do
begin
if 枚举变量＝开始 then
else if 枚举变量＝暂停 then
else if 枚举变量＝停止 then
.....
end;
eStart,ePause,eStop
在工作线程，每个循环都判断一下这个枚举变量的状态，根据状态，这个线程作出响应的反应。
while True do
begin
if 枚举变量＝开始 then
else if 枚举变量＝暂停 then
else if 枚举变量＝停止 then
.....
end;
oosmile 2008-08-03
- 打赏
- 举报
while () do
begin
（数据计算……）
if pause then
begin
while pause do
begin
Application.ProcessMessages;
end;
end;
end;
这个可以吗？
begin
（数据计算……）
if pause then
begin
while pause do
begin
Application.ProcessMessages;
end;
end;
end;
这个可以吗？
coffeemay 2008-08-03
- 打赏
- 举报
线程
xinmeng08 2008-08-03
- 打赏
- 举报
你要计算什么东西？看不明白
kernelj 2008-08-03
- 打赏
- 举报
你是的计算代码是?不给出代码,很难知道怎么去执行你想要的结果哦.
