progress-4gl - Openedge 表单 - 避免消息 Press space bar to continue

Question

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

我该怎么做才能跳过看到该消息？

/* 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.

Answer 1

当视口已满时，系统会提示您在 CHUI 中按空格键。你可以避免这种情况PAUSE 0 BEFORE-HIDE NO-MESSAGE.