哪个事件应该应用于 prorgress 10.2b 中的组合框,以便它下拉

Which event should be applied to the combo-box in prorgress 10.2b, so that it drop down

在 10.2b 中,应该将哪个事件应用于组合框,使其下拉。默认情况下,这是向下的光标,但我需要用 space 打开它,但我不知道该怎么做。

我已经成功地创建了一个选择列表,该列表是您组合框中列表项的副本。

这是一些代码。假设组合称为 c,框架称为 f。即使您的组合正下方有一个小部件,这仍然有效。

def var hSL as handle no-undo.  /* Mandatory variable definition in your program */

on ' ' of c do:
    create selection-list hSL
       assign frame      = frame f:handle
              col        = c:col in frame f
              row        = c:row in frame f + 1
              list-items = c:list-items in frame f
              visible    = yes
              sensitive  = true
       triggers:
         on return persistent run piChoose.
         on leave persistent run piLeave.
       end triggers.
    apply 'entry' to hSL.
end.  

procedure piChoose:
   assign c:screen-value in frame f = hSL:Screen-value.
   assign c.
   apply 'leave' to self.
end procedure.

procedure piLeave:
   delete object hSL no-error.
end procedure.

请注意,如果您使用的是列表项对,那么在我使用列表项的地方应该使用 LIST-ITEM-PAIRS 属性。

希望对您有所帮助!