(XD::DCL:SetError)设置 errtile 控件 文字

Free-Lancer

1. ;;设置 errtile 控件 文字
   
2. ;;var ----- string
   
3. (defun XD::DCL:SetError (val)
   
4.   (if val
   
5.     (progn
   
6.       (dcl:RsError)
   
7.       (set_tile "error" val)
   
8.       t
   
9.     )
   
10.   )
    
11. )

;;设置 errtile 控件 文字<br /> ;;var ----- string<br /> (defun XD::DCL:SetError (val)<br />   (if val<br />     (progn<br />       (dcl:RsError)<br />       (set_tile "error" val)<br />       t<br />     )<br />   )<br /> )