哪些事件应该应用于组合框在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. 

注：如果您使用列表项对，然后列表项-PAIRS属性应该在哪里我使用列表项中。

希望有帮助！