OptionList 控件操作

st788796

1. ;;control ---- string
   
2. ;;lst     ---- '(curselindex (string1 string2 ...))
   
3. ;;var     ---- cursel
   
4. (defun DCL_OptionList_Pross (name lst var / control)
   
5.   (if (setq control (eval (read name)))
   
6.     (progn
   
7.       (dcl-control-setbuttoncaptionlist control (cadr lst))
   
8.       (dcl-optionlist-setcursel control (car lst))
   
9.       (eval (list 'defun
   
10.                   (read (strcat "c:" name "/#OnSelChanged"))
    
11.                   '(ItemIndexOrCount Value /)
    
12.                   (list 'setq var 'Value)
    
13.                   '(princ)
    
14.             )
    
15.       );_设定 SelChanged 事件回调函数
    
16.       (dcl-control-setproperty
    
17.         control
    
18.         "SelChanged"
    
19.         (strcat "c:" name "/#OnSelChanged")
    
20.       );_设定回调事件
    
21.     )
    
22.   )
    
23. )

;;control ---- string<br /> ;;lst     ---- '(curselindex (string1 string2 ...))<br /> ;;var     ---- cursel<br /> (defun DCL_OptionList_Pross (name lst var / control)<br />   (if (setq control (eval (read name)))<br />     (progn<br />       (dcl-control-setbuttoncaptionlist control (cadr lst))<br />       (dcl-optionlist-setcursel control (car lst))<br />       (eval (list 'defun<br />                   (read (strcat "c:" name "/#OnSelChanged"))<br />                   '(ItemIndexOrCount Value /)<br />                   (list 'setq var 'Value)<br />                   '(princ)<br />             )<br />       );_设定 SelChanged 事件回调函数<br />       (dcl-control-setproperty<br />         control<br />         "SelChanged"<br />         (strcat "c:" name "/#OnSelChanged")<br />       );_设定回调事件<br />     )<br />   )<br /> )

var 为全局变量，返回选中的按钮的 caption
可以用在 Form Initialize 中