如何在循环内响应键盘或鼠标事件？(50分)

E

elite

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-28

• #1

主线程有循环如下：<br>&nbsp; &nbsp;While testing do<br>&nbsp; &nbsp;begin<br>&nbsp; &nbsp; &nbsp; &nbsp;//程序体；<br>&nbsp; &nbsp; &nbsp; ...<br>&nbsp; &nbsp;end;<br>想在按下Enter键或鼠标点击Button1时给<br>&nbsp; &nbsp;testing:=False;<br>从而在下一次循环时退出。除了在该循环体中<br>使用多线程，从而使得击键和点击鼠标可以得<br>到响应，以便改变testing的值，还有没有更<br>好的办法？<br>请指教！<br>

 

D

delphi fan2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-28

• #2

在循环体里application.ProcessMessages;<br>在鼠标或键盘事件里testing:=false;

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-28

• #3

&nbsp; While testing do &nbsp; <br>&nbsp; &nbsp;begin &nbsp; &nbsp; &nbsp;<br>&nbsp; &nbsp; &nbsp;Application.ProcessMessages;<br>&nbsp; &nbsp; &nbsp;//程序体； &nbsp; &nbsp; &nbsp;<br>&nbsp; &nbsp; &nbsp;... &nbsp; <br>&nbsp; &nbsp;end;

 

B

bluebird

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-28

• #4

就是Application.Processmessages呀，放在循环里

 

C

chenke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-29

• #5

都已经讨认过的啦。

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-30

• #6

application.ProcessMessages<br>结素问题吧

 

E

elite

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-31

• #7

多人接受答案了。