弹出是窗体，想改嵌入至option

pallayout

这是一下弹出是窗体，想改嵌入至option,哪错了


        ;tb_form = axlFormCreate( (gensym) "txt_block.form" `(ne inner "msglines" 2) `txtblock_Action t nil)
        tb_form = axlMiniStatusLoad( (gensym) "./txt_block.form"  `txtblock_Action t)
出错提示
E- *Error* axlFormSetFieldVisible: too many arguments (3 expected, 4 given) - (form:b25ee10 "./txt_block.form" "area_ref" 0)

pallayout

1. /*********************************************************/
   
2. /*               Title :  in Options                     */
   
3. /*     Execute Command :  in_options                     */
   
4. /*              Author :  tatarlxw                       */
   
5. /*       Creation Date :  2014-10-30                     */
   
6. /*              Update :                                 */
   
7. /*             Version :  1.0                            */
   
8. /*            Web site :  http://hi.baidu.com/tatarlxw   */
   
9. /*              E-mail :  tatarlxw@163.com               */
   
10. /*********************************************************/
    
11. 
    
12. axlCmdRegister("in_options" 'in_options)
    
13. defun(in_options ()
    
14.   formFileName = "./in_options.form"
    
15.   in_options_form_create()
    
16.   in_options_form = axlMiniStatusLoad((gensym) formFileName 'in_options_action t)
    
17.   ;in_options_form = axlFormCreate( (gensym) formFileName `(ne inner "msglines" 2) `in_options_action t nil)
    
18.   axlFormDisplay(in_options_form)
    
19.   deleteFile(formFileName)
    
20.   axlControlRaise('options)
    
21. )
    
22. 
    
23. defun(in_options_action (in_options_form)
    
24. case(in_options_form->curField
    
25.     ("Hello"
    
26.            axlUIWPrint(nil strWelcome)
    
27. )
    
28. )
    
29. )
    
30. 
    
31. procedure(in_options_form_create()
    
32.         lstForm = outfile( formFileName "w")
    
33.         fprintf(lstForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
34.         fprintf(lstForm "FORM\n")
    
35.         fprintf(lstForm "FIXED\n")
    
36.         fprintf(lstForm "PORT 20 10\n")
    
37.         fprintf(lstForm "HEADER \"Change Block\"\n")
    
38.         fprintf(lstForm "TILE\n")
    
39.        
    
40.         fprintf(lstForm "TEXT \"I am here\"\n")
    
41.         fprintf(lstForm "FLOC 2 2\n")
    
42.         fprintf(lstForm "ENDTEXT\n")
    
43.        
    
44.         fprintf(lstForm "FIELD Hello\n")
    
45.         fprintf(lstForm "FLOC 12 2\n")
    
46.         fprintf(lstForm "MENUBUTTON \"Hello\" 5 3\n")
    
47.         fprintf(lstForm "ENDFIELD\n")
    
48.        
    
49.         fprintf(lstForm "ENDTILE\n")
    
50.         fprintf(lstForm "ENDFORM\n")
    
51.         close(lstForm)
    
52. )
    
53. 
    
54. 
    
55.        
    
56.        
    

复制代码

本程序为在options嵌入form,哪错呢？

deargds

pallayout 发表于 2014-10-30 14:00
本程序为在options嵌入form,哪错呢？

在axlControlRaise('options) 语句后面添加一行
axlEnterPoint()即可

pallayout

谢了，