循环用响应键盘终止

fenglaile 2003-12-16 11:08:44
有一个循环,在button中,请教大家如何使用响应键盘如ESC,按ESC终止button中的循环呀
...全文
37 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
lh983508 2003-12-16
  • 打赏
  • 举报
回复
学习
ehom 2003-12-16
  • 打赏
  • 举报
回复
过于2要补充点,要在循环中加上Application.ProcessMessages;响应消息

另外如果功能上比较复杂,又没有经验,最好系统学习下Windows程序设计看些资料后再使用多线程
巍巍贺兰山 2003-12-16
  • 打赏
  • 举报
回复
在Button 事件中:
Loop:=true;
while Loop do
begin

end;

在键盘事件中检测是否 Esc 按下
if Esc按下 then
Loop:=false;
huayuxing 2003-12-16
  • 打赏
  • 举报
回复
一\要么用线程来做,
二、可以设一全局变量blnEsc
在循环里里面用while not blnesc do

在窗体的keypress事件中,设BlnEsc:=True;
fenglaile 2003-12-16
  • 打赏
  • 举报
回复
解决问题,ehom(?!) 说的对,我没有加Application.ProcessMessages
谢谢各位了,

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧