請教如何編程才能實現多重對話框？

lzm

在一個對話框裡點擊命令後怎樣才能彈出來另一個對話框，而當前的對話框仍在。如何實現多重對話框？用什麼函數？

請教高手。

无痕

好像dcl不行.试试vb,vba,arx,等

alin

可以的

(defun C:testdcl()
  (setq what_next 2)
    (Setq dcl_id (Load_Dialog "test.dcl"))
  (WHILE (<= 2 what_next)
    (if (null (new_dialog "DCL1" dcl_id)) ;Initialize dialog
      (exit) ;box, exit if nil
    ) ; endif
    (action_tile "Show2" "(done_dialog (ShowDialog2))")
    (action_tile "accept" "(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)")
    (setq what_next (start_dialog))
  )
    (unload_dialog dcl_id)
 )

(defun ShowDialog2()
      (if (null (new_dialog "DCL2" dcl_id)) ;Initialize dialog
      (exit) ;box, exit if nil
    ) ; endif
    (action_tile "HideMe" "(HideMe)")
    (action_tile "accept" "(done_dialog 1)")
    (action_tile "cancel" "(done_dialog 0)")
    (start_dialog)
)

(defun HideMe()
  (done_dialog 3)
)

DCL1: dialog {
 label = "Dialog Box 1";
 : edit_box { label = "Input"; key = "input1"; edit_width = 10;}
 spacer;
 : row {
   : button { label = "Show Dialog 2"; key = "Show2";}
   ok_cancel;
   }
   }
 DCL2: dialog {
 label = "Dialog Box 2";
 : edit_box { label = "Input"; key = "input2"; edit_width = 10;}
 spacer;
 : row {
 : button { label = "Hide Me"; key = "HideMe";}
 ok_cancel;
 }
 }

lzm

謝謝兩位版主，明白了，在DCL裡可以做嵌套對話框，但不可以有多個活動對話框，必須關閉了嵌套子對話框後才能對上一層對話框操作。

byghbcx

嵌套對話框，可以隐藏，也可以不隐藏，但必须先处理当前对话框，才能回到上一层对话框．

7686599

如何在第二个对话框显示的时候隐藏掉第一个对话框？刚才试了几次，都导致直接当机了。

e19000

也就是说在子对话框中的计算的数据怎么才能同时显示到主对话框中 ，这个问题我想来好长时间都不行  希望帮帮忙 谢谢·！