プリロレス10.2bのコンボボックスにドロップするイベントを指定します。

Question

プリロレス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ペアの属性を使用する必要があります。

希望に役立ちます！