[LISP函数]：如何设置最小化按钮

wcf

用DCL语言编的对话框界面上只有关闭按钮，无最小化按钮，如何写程序来设置？

cjun2258

我也想知道，那位大侠讲解一下

wkai

dcl不能最小化，只能用(done_dialog n)临时关闭，用循环来控制。

2. 
   
3. (setq        index_value
   
4.          (load_dialog "TCH_dim.dcl");;对话框文件名
   
5.         flag 4 ;;设置对话框返回值为4
   
6.   )
   
7. ...
   
8.   (while (> flag 3);;如果对话框返回值大于3则进入循环
   
9.     (progn
   
10.       (new_dialog "tch_dim" index_value);;初始化对话框
    
11.       ...
    
12.       (action_tile "ab" "(done_dialog 10)");;按钮ab临时关闭对话框
    
13.       ...
    
14.       (setq flag (start_dialog));;启动对话框，并用flag获取对话框返回值
    
15.       (cond
    
16.         ((= flag 0)(...));;按取消按钮时对话框返回值为0
    
17.         ((= flag 1)(...));;按确定按钮时对话框返回值为1
    
18.         ((= flag 10) (...));;用户按了ab
    
19.       )
    
20.     )
    
21.   );;while
    

<br /> (setq        index_value<br />          (load_dialog "TCH_dim.dcl");;对话框文件名<br />         flag 4 ;;设置对话框返回值为4<br />   )<br /> ...<br />   (while (> flag 3);;如果对话框返回值大于3则进入循环<br />     (progn<br />       (new_dialog "tch_dim" index_value);;初始化对话框<br />       ...<br />       (action_tile "ab" "(done_dialog 10)");;按钮ab临时关闭对话框<br />       ...<br />       (setq flag (start_dialog));;启动对话框，并用flag获取对话框返回值<br />       (cond<br />         ((= flag 0)(...));;按取消按钮时对话框返回值为0<br />         ((= flag 1)(...));;按确定按钮时对话框返回值为1<br />         ((= flag 10) (...));;用户按了ab<br />       )<br />     )<br />   );;while<br />