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

Question

哪个事件应该应用于prorgress 10.2b中的组合框，以便它下拉。默认情况下，这是光标向下，但我需要它以空格打开，我只是无法弄清楚如何做到这一点。

Answer 1

我设法通过创建一个选择列表来实现这一目标，该列表是您的组合框中列表项的副本。

这里有一些代码。假设组合称为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属性，而不是使用list-items。

希望有所帮助！