如何制作部分隐藏的对话框

changyiran

就是制作一个对话框，使对话框的右边部分隐藏，隐藏部分和非隐藏部分有一个类似剪头的东西，点击它，隐藏部分显示，再点击它又隐藏。请各位高手支招。

wzg356

做成2个对话框（一般也是这样处理），你说的箭头是一个button用于切换，点击button执行另一个对话框的启动指令。
另一个对话框同样做一个button用于切换回来。

changyiran

请教各位，opendcl是不是要安装什么程序啊？

sicky111

DCL也能实现...

changyiran

sicky111 发表于 2014-12-5 23:06
DCL也能实现...

不错就是这样的，怎么实现的大神

love1030312

期待高手解决此事哦

wzg356

dcl我觉得只能用老土办法了，做两个或三个对话框解决，互相切换，没技术含量
看得上的拿去

2. ;;;隐框示例
   
3. (defun c:tt1 ( / dcl_id dd p str_h)
   
4.   (setq dcl_id (load_dialog (wwcc1-dcl)))
   
5.   (new_dialog "wwcc1" dcl_id)
   
6.   (action_tile "key1" "(done_dialog 1)")
   
7.   (action_tile "key2" "(done_dialog 2)")
   
8.   (setq dd (start_dialog))
   
9.   (cond
   
10.     ((= dd 1) (alert "执行你的程序！"))
    
11.     ((= dd 2) (c:tt2))  
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    
16. (defun c:tt2 ( / dcl_id dd p str_h)
    
17.   (setq dcl_id (load_dialog (wwcc2-dcl)))
    
18.   (new_dialog "wwcc2" dcl_id)
    
19.   (action_tile "key1" "(done_dialog 1)")
    
20.   (action_tile "key2" "(done_dialog 2)")
    
21.   (setq dd (start_dialog))
    
22.   (cond
    
23.     ((= dd 1) (alert "执行你的程序！"))
    
24.     ((= dd 2) (c:tt1))  
    
25.   )
    
26.   (princ)
    
27. )
    
28. ;;;=============================
    
29. ;;写对话框1
    
30. (defun wwcc1-dcl  (/ lst_str str file f)
    
31.     (setq lst_str '(
    
32. ""
    
33. "wwcc1:dialog {"
    
34. "    label = "第一窗" ;"
    
35. "    :boxed_row {"
    
36. "        :text {"
    
37. "            label = "哈喽！" ;"
    
38. "        }"
    
39. "    }"
    
40. "    :button {"
    
41. "        key = "key1" ;"
    
42. "        label = "命令1" ;"
    
43. "    }"
    
44. "    :button {"
    
45. "        key = "key2" ;"
    
46. "        label = "第二窗＞＞&C" ;"
    
47. "    }"
    
48. "    :spacer {}"
    
49. "    cancel_button;"
    
50. "}"
    
51.         )
    
52.     )
    
53.     (setq file (vl-filename-mktemp "DclTemp.dcl"))
    
54.     (setq f (open file "w"))
    
55.     (foreach str lst_str
    
56.   (princ "\n" f)
    
57.   (princ str f)
    
58.     )
    
59.     (close f)
    
60.     ;;返回
    
61.     file
    
62. )
    
63. 
    
64. ;;写对话框2
    
65. (defun wwcc2-dcl  (/ lst_str str file f)
    
66.     (setq lst_str '(
    
67. ""
    
68. "wwcc2:dialog {"
    
69. "    label = "第二窗" ;"
    
70. "    :boxed_row {"
    
71. "        :text {"
    
72. "            label = "哈喽！" ;"
    
73. "        }"
    
74. "    }"
    
75. "    :button {"
    
76. "        key = "key1" ;"
    
77. "        label = "命令1" ;"
    
78. "    }"
    
79. "    :boxed_row {"
    
80. "        :text {"
    
81. "            label = "没有东东" ;"
    
82. "        }"
    
83. "    }"
    
84. "    :button {"
    
85. "        key = "key2" ;"
    
86. "        label = "＜＜第一窗&C" ;"
    
87. "    }"
    
88. "    :spacer {}"
    
89. "    cancel_button;"
    
90. "}"
    
91.         )
    
92.     )
    
93.     (setq file (vl-filename-mktemp "DclTemp.dcl"))
    
94.     (setq f (open file "w"))
    
95.     (foreach str lst_str
    
96.   (princ "\n" f)
    
97.   (princ str f)
    
98.     )
    
99.     (close f)
    
100.     ;;返回
     
101.     file
     
102. )
     
103. ;;;=================================================================*
     
104. (princ)
     

;;;隐框示例<br /> (defun c:tt1 ( / dcl_id dd p str_h)<br />   (setq dcl_id (load_dialog (wwcc1-dcl))) <br />   (new_dialog "wwcc1" dcl_id)<br />   (action_tile "key1" "(done_dialog 1)")<br />   (action_tile "key2" "(done_dialog 2)")<br />   (setq dd (start_dialog))<br />   (cond<br />     ((= dd 1) (alert "执行你的程序！"))<br />     ((= dd 2) (c:tt2))  <br />   )<br />   (princ)<br /> )<br /> <br /> (defun c:tt2 ( / dcl_id dd p str_h)<br />   (setq dcl_id (load_dialog (wwcc2-dcl))) <br />   (new_dialog "wwcc2" dcl_id)<br />   (action_tile "key1" "(done_dialog 1)")<br />   (action_tile "key2" "(done_dialog 2)")<br />   (setq dd (start_dialog))<br />   (cond<br />     ((= dd 1) (alert "执行你的程序！"))<br />     ((= dd 2) (c:tt1))  <br />   )<br />   (princ)<br /> )<br /> ;;;=============================<br /> ;;写对话框1<br /> (defun wwcc1-dcl  (/ lst_str str file f)<br />     (setq lst_str '(<br /> ""<br /> "wwcc1:dialog {"<br /> "    label = "第一窗" ;"<br /> "    :boxed_row {"<br /> "        :text {"<br /> "            label = "哈喽！" ;"<br /> "        }"<br /> "    }"<br /> "    :button {"<br /> "        key = "key1" ;"<br /> "        label = "命令1" ;"<br /> "    }"<br /> "    :button {"<br /> "        key = "key2" ;"<br /> "        label = "第二窗＞＞&C" ;"<br /> "    }"<br /> "    :spacer {}"<br /> "    cancel_button;"<br /> "}"<br />         )<br />     )<br />     (setq file (vl-filename-mktemp "DclTemp.dcl"))<br />     (setq f (open file "w"))<br />     (foreach str lst_str<br />   (princ "\n" f)<br />   (princ str f)<br />     )<br />     (close f)<br />     ;;返回<br />     file<br /> )<br /> <br /> ;;写对话框2<br /> (defun wwcc2-dcl  (/ lst_str str file f)<br />     (setq lst_str '(<br /> ""<br /> "wwcc2:dialog {"<br /> "    label = "第二窗" ;"<br /> "    :boxed_row {"<br /> "        :text {"<br /> "            label = "哈喽！" ;"<br /> "        }"<br /> "    }"<br /> "    :button {"<br /> "        key = "key1" ;"<br /> "        label = "命令1" ;"<br /> "    }"<br /> "    :boxed_row {"<br /> "        :text {"<br /> "            label = "没有东东" ;"<br /> "        }"<br /> "    }"<br /> "    :button {"<br /> "        key = "key2" ;"<br /> "        label = "＜＜第一窗&C" ;"<br /> "    }"<br /> "    :spacer {}"<br /> "    cancel_button;"<br /> "}"<br />         )<br />     )<br />     (setq file (vl-filename-mktemp "DclTemp.dcl"))<br />     (setq f (open file "w"))<br />     (foreach str lst_str<br />   (princ "\n" f)<br />   (princ str f)<br />     )<br />     (close f)<br />     ;;返回<br />     file<br /> )<br /> ;;;=================================================================*<br /> (princ)<br />

Nico

做两个dcl，来回切换