Openedge表单 - 避免消息按空格键继续

时间:2012-08-01 15:24:15

标签: progress-4gl openedge

我正在编写一个程序来接受用户的输入。我在一个框架中显示一些背景文本,然后使用覆盖框架来提示输入。在下面的简单示例中,我在运行提示符之前收到消息“按空格键继续”。

我该怎么做才能跳过这条消息?

/* Background */
def var dLines as char format "x(78)" extent 20 no-undo.

dLines[1] = "Password:".
dLines[2] = "".
dLines[3] = "Scan/key password".

form
  dLines[1]  skip
  dLines[2]  skip
  dLines[3]
  with frame fLabel no-labels no-box row 1 column 1 screen-io.

display
  dLines[1]
  dLines[2]
  dLines[3]
  with frame fLabel screen-io.


/* Prompt for data */
def var dString as char no-undo.

form
  dString format "x(60)"
  with frame cPrompt14 overlay no-labels no-box row 1 column 12 screen-io.

/*** This is where I get the "Press space bar to continue" message ***/ 
prompt-for
  dString
  with frame cPrompt14.

assign dString.

1 个答案:

答案 0 :(得分:4)

当视口已满时,系统会提示您按CHUI中的空格键。您可以使用PAUSE 0 BEFORE-HIDE NO-MESSAGE.

来避免这种情况