如何在PASCAL语言中实现程序停等待用户按键?(50分)

  • 主题发起人 主题发起人 张道真
  • 开始时间 开始时间

张道真

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在PASCAL语言中实现:
程序暂停,等待用户按键,按Y,N,ESC键后执行各自操作?
谢谢!
 
如果是DOS时代的话,可用read过程 [:)]
 
messagedlg不行吗?
 
if ID_YES = Application.MessageBox('内容', 对话框标题'', MB_YESNO+DEFBUTTON2) then
...
else
...

具体的找相关帮助看看
 
while not (kbhit()大概是这个函数) do
begin
..............
end
 
Window 已经是用事件驱动了,Dos 下的那套已经行不通了。
如果非要你说的效果可以用楼上Leejames 的方法。
不过它是弹出一个对话框,等用户选择确认还是否。
 
后退
顶部