如何跳出一个死循环？(35分)

N

neel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #1

while True do
begin
windows.beep(3333,333);
//相应键盘或鼠标消息退出；这里该怎么写
end;

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #2

放一Ttime 控件，设一全局布尔型变量 在ontime事件写如下
while boolean do
begin
windows.beep(3333,333);
sendmessage(handle,WM_MOUSEWHEEL,lwparam,hwparam)
end;
处理WM_MOUSEWHEEL消息时只要把那个全局的布尔型变量设为false 再inherted 就行了

 

N

neel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #3

不，不是这样的。
如果加TTime控件,这样写就不是死循环了：）

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #4

刚才说错了
在Ttime 的ontime事件中把全局的布尔型变量设为false
while True do
begin
windows.beep(3333,333);
if not 全局变量 then break;
end;
处理WM_MOUSEWHEEL消息时只要把Ttime.enable:=true,再inherted 就行了

 

K

Kingron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #5

应该这样：
bQuit:=False;
while true do
begin
beep(....);
Application.ProcessMessages;
if bQuit then break;
end;
其中bQuit是一个全局变量，你可以在其他的鼠标和键盘处理中把他设置为True即可。

 

Y

ypy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #6

exit

 

慕

慕容乾坤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #7

就是当有消息产生，则条件=false就跳出循环了吗。

 

赵

赵普昉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-03

• #8

you can use HOOK do it!

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-04

• #9

exit or break
可以跳出当前循环，具体是哪一个我忘了，自己试一下。

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-05

• #10

Kingron的方法不错！我也是这么想的！

 

N

neel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-06

• #11

接受答案了.