首页| JavaScript| HTML/CSS| Matlab| PHP| Python| Java| C/C++/VC++| C#| ASP| 其他|
购买积分 购买会员 激活码充值

您现在的位置是:虫虫源码 > 其他 > Delphi 使用ESC键停止循环

Delphi 使用ESC键停止循环

  • 资源大小:163.90 kB
  • 上传时间:2021-06-30
  • 下载次数:0次
  • 浏览次数:0次
  • 资源积分:1积分
  • 标      签: Delphi源码

资 源 简 介

Delphi 使用ESC键停止循环,示例演示程序,单击按钮开始循环,按下键盘ESC键,将停止循环。程序核心代码:   begin    for i:= 0 to 9999999 do    begin    Edit1.Text := IntToStr(i);    //允许应用程序在循环中可以处理消息    Application.ProcessMessages;    //用是 ESC 键放弁循环    if GetKeyState(VK_ESCAPE) and 128 = 128 then    Break;    end;   end;

文 件 列 表

srcfans.com
ESC键停止循环
Project1.dof
ESC键停止循环
ESC键停止循环
Project1.cfg
srcfans.com
VIP VIP
0.176579s