选择不同的子功能，下面的标签里会自动提示对应子功能的介绍信息和说明
想实现个功能：选择不同的子功能，下面的标签里会自动提示对应子功能的介绍信息和说明。提示信息能随着子功能菜单的切换自由更新
试了几个方法 没实现。。特来请教
多谢各位指导。。
多谢
;;=========
(DEFUN C:CTT(/ DCL_ID DIALOG_RETURN KEY KEYS DCL_FILE )
(setq DCL_ID (LOAD_DIALOG (setq DCL_FILE (DCL_DCL-001))))
(VL-FILE-DELETE DCL_FILE)
(setq DIALOG_RETURN 2)
(while (and (> DIALOG_RETURN 1))
(NEW_DIALOG "Form1" DCL_ID)
(setq KEYS '("Label_1" "Label_2" "Label_3")
)
(FOREACH KEY KEYS
(if (EVAL (READ (STRCAT KEY "_bak")))
(PROGN (SET_TILE KEY (EVAL (READ (STRCAT KEY "_bak")))))
)
(ACTION_TILE KEY "(Action_Form1_Keys $key $value)")
)
(setq DIALOG_RETURN (START_DIALOG))
(if(= DIALOG_RETURN 1)
(PROGN
(if (= Label_1 1)
(PROGN (Label_CT1))
)
(if (= Label_2 1)
(PROGN (Label_CT2))
)
(if (= Label_3 1)
(PROGN (Label_CT3))
)
)
)
)
(UNLOAD_DIALOG DCL_ID)
(PRINC)
)
;;===
(DEFUN GET_FORM1_DATA (/ KEY)
(FOREACH KEY KEYS
(SET (READ (STRCAT KEY "_bak")) (GET_TILE KEY))
)
(DONE_DIALOG 1)
)
(DEFUN ACTION_FORM1_KEYS (KEY VALUE)
(COND((= KEY "accept")
(GET_FORM1_DATA)
;(GET_SELECT_DATA)
(DONE_DIALOG 1)
)
((= KEY "cancel")
(DONE_DIALOG 0)
(PRINC "\n退出")
)
)
)
;;=======================================================================
(DEFUN ACTION_FORM1_KEYS (KEY VALUE)
(COND((= KEY "accept")
(GET_FORM1_DATA)
;(GET_SELECT_DATA)
(DONE_DIALOG 1)
)
((= KEY "cancel")
(DONE_DIALOG 0)
(PRINC "\n退出")
)
)
)
;;=======================================================================
(DEFUN GET_SELECT_DATA ()
(DONE_DIALOG 1)
)
;;==================================================================
;;==================================================================
(DEFUN DCL_DCL-001 (/ DCL_FILE FILE STR)
(setq DCL_FILE (VL-FILENAME-MKTEMP nil nil ".Dcl"))
(setq FILE (OPEN DCL_FILE "w"))
(FOREACH STR
'("Form1:dialog"
"{"
" label = \"程序标题 \";"
" spacer_1; "
" :boxed_row"
" {"
" label = \"功能选择 \" ;"
":radio_button "
" {"
" key = \"Label_100\" ;"
" label = \"功能1\" ;"
" value= \"1\" ;"
" } "
":radio_button "
" {"
" key = \"Label_200\" ;"
" label = \"功能2\" ;"
" value= \"0\" ;"
" } "
":radio_button "
" {"
" key = \"Label_300\" ;"
" label = \"功能3\" ;"
" value= \"0\" ;"
" } "
" }"
" :boxed_column"
" {"
" label = \"子功能 \" ;"
" :radio_column { "
":radio_button "
" {"
" key = \"Label_1\" ;"
" label = \"标签1\" ;"
" value= \"0\" ;"
" } "
":radio_button "
" {"
" key = \"Label_2\" ;"
" label = \"标签2\" ;"
" value= \"0\" ;"
" } "
":radio_button "
" {"
" key = \"Label_3\" ;"
" label = \"标签3\" ;"
" value= \"1\" ;"
" } "
":radio_button "
" {"
" key = \"Label_4\" ;"
" label = \"标签4\" ;"
" value= \"0\" ;"
" } "
":radio_button "
" {"
" key = \"Label_5\" ;"
" label = \"标签5\" ;"
" value= \"0\" ;"
" } "
":radio_button "
" {"
" key = \"Label_6\" ;"
" label = \"标签6\" ;"
" value= \"0\" ;"
" } "
" }"
" }"
" spacer_1; "
" :text"
" {"
" key = \"Label_001\" ;"
" label = \"这里提示 当前选择的是功能1的标签6\" ;"
" }"
" :text"
" {"
" key = \"Label_002\" ;"
" label = \"这里提示功能1的标签6 的具体提示信息\" ;"
" width = 1.5 ;"
" height = 2.0 ;"
" }"
" ok_cancel ;"
" }"
)
(WRITE-LINE STR FILE)
)
(CLOSE FILE)
DCL_FILE
)
;;==================================================================
页:
[1]