哪个事件应该应用于 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 属性。
希望对您有所帮助!
在 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 属性。
希望对您有所帮助!