列出已Load的Project中所有的Control名称

eachy

先暂存下

1. (defun ODCL::Project:List (/ lst el)
   
2.   (setq        lst (dcl_getprojects)
   
3.         el  (mapcar
   
4.               'list
   
5.               lst
   
6.               (mapcar 'dcl_project_getforms lst)
   
7.             )
   
8.   )
   
9.   (mapcar
   
10.     '(lambda (x)
    
11.        (cons
    
12.          (car x)
    
13.          (mapcar
    
14.            '(lambda (a)
    
15.               (cons
    
16.                 (dcl_control_getname a)
    
17.                 (mapcar 'dcl_control_getname (dcl_form_getcontrols a))
    
18.               )
    
19.             )
    
20.            (cadr x)
    
21.          )
    
22.        )
    
23.      )
    
24.     el
    
25.   )
    
26. )

(defun ODCL::Project:List (/ lst el)<br />   (setq        lst (dcl_getprojects)<br />         el  (mapcar<br />               'list<br />               lst<br />               (mapcar 'dcl_project_getforms lst)<br />             )<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (cons<br />          (car x)<br />          (mapcar<br />            '(lambda (a)<br />               (cons<br />                 (dcl_control_getname a)<br />                 (mapcar 'dcl_control_getname (dcl_form_getcontrols a))<br />               )<br />             )<br />            (cadr x)<br />          )<br />        )<br />      )<br />     el<br />   )<br /> )

_$ (ODCL::Project:List)
(("xdcad" ("MainMenu" "BackGround" "PictureBox" "Tab01" "Tab11" "Tab21" "Tab31" "Tab41" "Tab51" "Tab61" "Tab71" "Tab81" "Tab91" "Split0" "Split1" "Split2" "Split3" "Split4" "Split5" "Split6" "Split7" "Split8" "Split9" "Split01" "Split11" "Split21" "Split31" "Split41" "Split51" "Split61" "Split71" "Split81" "Split91" "Button0" "Button1" "Button2" "Button3" "Button4" "Button5" "Button6" "Button7" "Button8" "Button9" "Button10" "Button11" "Button12" "Button13" "Button14" "Button15" "Button16" "Button17" "Button18" "Button19" "Button20" "Button21" "Button22" "Button23" "Button24" "Button25" "Button26" "Tab0" "Tab1" "Tab2" "Tab3" "Tab4" "Tab5" "Tab6" "Tab7" "Tab8" "Tab9")))
_$

守仁格竹GM

真迅速啊，提前解决烦恼