openDCL入门问题请教【已解决】

wkq004

我用停靠对话框，想达到双击列表，把Label2改成列表中的字符串，半天都没弄好，用模态对话框可以，但停靠就是不行，不知道咋弄，哪位高手帮个忙

主要是第一次用opendcl在dcl文件的Events选项卡内未打钩。

1. (command "OPENDCL")
   
2. (defun c:TT ()
   
3.   (dcl_Project_Load "AA" t)
   
4.   (dcl_Form_Show AA_Form1)
   
5.   (princ)
   
6. )
   
7. 
   
8. (defun c:AA_Form1_OnInitialize (/)
   
9.   (dcl_ListBox_AddList
   
10.     AA_Form1_ListBox1
    
11.     (LIST "A" "E" "B" "D" "C")
    
12.   )
    
13. )
    
14. 
    
15. (defun c:AA_Form1_ListBox1_OnDblClicked  (/)
    
16.   (alert "aaaaaaaaa")
    
17.   (dcl_Control_SetCaption AA_Form1_Label1 "222")
    
18.   (dcl_Control_SetCaption
    
19.     AA_Form1_Label2
    
20.     (setq name (dcl_ListBox_GetItemText
    
21.      AA_Form1_ListBox1
    
22.      (dcl_ListBox_GetCurSel AA_Form1_ListBox1)
    
23.          )
    
24.     )
    
25.   )
    
26. ;;;  (command ".text" pause "" "" name "")
    
27. )

(command "OPENDCL") <br /> (defun c:TT ()<br />   (dcl_Project_Load "AA" t)<br />   (dcl_Form_Show AA_Form1)<br />   (princ)<br /> )<br /> <br /> (defun c:AA_Form1_OnInitialize (/)<br />   (dcl_ListBox_AddList<br />     AA_Form1_ListBox1<br />     (LIST "A" "E" "B" "D" "C")<br />   )<br /> )<br /> <br /> (defun c:AA_Form1_ListBox1_OnDblClicked  (/)<br />   (alert "aaaaaaaaa")<br />   (dcl_Control_SetCaption AA_Form1_Label1 "222")<br />   (dcl_Control_SetCaption<br />     AA_Form1_Label2<br />     (setq name (dcl_ListBox_GetItemText<br />      AA_Form1_ListBox1<br />      (dcl_ListBox_GetCurSel AA_Form1_ListBox1)<br />          )<br />     )<br />   )<br /> ;;;  (command ".text" pause "" "" name "")<br /> )

wkq004

最好是单击列表将列表文字写入图形

wkq004

我折腾的没辙了，请高手帮忙改下

masterlong

没下楼主的文件
以自己的程序片段
随便说说


想双击列表
先设定双击事件有效
(defun c:vv13vj/vj_main/图纸列表#OnDblClicked (/)
(setq thetzid (dcl-ListBox-GetCurSel vv13vj/vj_main/图纸列表))
(v13_tzlist_联动 (itoa thetzid) 4)
)

(defun v13_tzlist_联动( v r )
   (setq the_ttt (nth (atoi v) zxshowlb))
   (if (= r 4)    ;;沿用DCL的习惯，r=4时，表示双击
       (progn
          .......
       )
     )
)