DropdownList でラベルが選択できない

[usami]

ボタンを押せてしまうのであればボタンだけを押せなくさせればよいかと思います。

こんな感じでどうでしょうか？ 上下キーでアイテムを選択させたければKeyPressイベントを外せばよいです。

Code:

{curl 8.0 applet}
{def cbo = {ComboBox
              enabled? = true,
              editable? = false,
              disabled-text-sunken?=false,
              disabled-color="black",
              value = "aaa",
              "bbb",
              "ccc",
              {on e:KeyPress do
                  {if e.value == KeyPressValue.up or e.value == KeyPressValue.down then
                      {e.consume}
                  }
              }
           }
}
{value
  def df-ui = cbo.ui-object asa SkinnableComboBoxUI
  def frame = df-ui.child.graphic asa Frame
  def grid = frame.child.graphic asa Grid
  def txt =  grid.child-array[0].graphic asa TextField
  def btn =  grid.child-array[1].graphic
  set txt.enabled? = true
  set btn.enabled? = false
  cbo
}