wkq004 发表于 2014-5-11 20:48:52

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

本帖最后由 wkq004 于 2014-6-2 17:55 编辑




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

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




(command "OPENDCL")
(defun c:TT ()
(dcl_Project_Load "AA" t)
(dcl_Form_Show AA_Form1)
(princ)
)

(defun c:AA_Form1_OnInitialize (/)
(dcl_ListBox_AddList
    AA_Form1_ListBox1
    (LIST "A" "E" "B" "D" "C")
)
)

(defun c:AA_Form1_ListBox1_OnDblClicked(/)
(alert "aaaaaaaaa")
(dcl_Control_SetCaption AA_Form1_Label1 "222")
(dcl_Control_SetCaption
    AA_Form1_Label2
    (setq name (dcl_ListBox_GetItemText
   AA_Form1_ListBox1
   (dcl_ListBox_GetCurSel AA_Form1_ListBox1)
         )
    )
)
;;;(command ".text" pause "" "" name "")
)

wkq004 发表于 2014-5-11 20:50:45

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

wkq004 发表于 2014-5-12 21:22:51

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

masterlong 发表于 2014-5-12 21:59:57

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


想双击列表
先设定双击事件有效
(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
          .......
       )
   )
)
页: [1]
查看完整版本: openDCL入门问题请教【已解决】