获取控件定义的所有事件

eachy

1. (defun ODCL::Control:GetEvents (control)
   
2.     (mapcar '(lambda (m) (dcl_control_getproperty control m))
   
3.             (vl-remove-if-not
   
4.               '(lambda (x / prop)
   
5.                  (setq prop (dcl_control_getproperty control x))
   
6.                  (and (= (type prop) 'STR)
   
7.                       (wcmatch (strcase prop) "C:*_ON*")
   
8.                  )
   
9.                )
   
10.               (dcl_control_getproperties control)
    
11.             )
    
12.     )
    
13.   )
    

(defun ODCL::Control:GetEvents (control)<br />     (mapcar '(lambda (m) (dcl_control_getproperty control m))<br />             (vl-remove-if-not<br />               '(lambda (x / prop)<br />                  (setq prop (dcl_control_getproperty control x))<br />                  (and (= (type prop) 'STR)<br />                       (wcmatch (strcase prop) "C:*_ON*")<br />                  )<br />                )<br />               (dcl_control_getproperties control)<br />             )<br />     )<br />   )<br />