原来的? GetCaption()，我这里改用Label显示，以免窗口一闪即逝。现在可以看到标题文字的变化过程。功能跟原来是完全一样的。

原先你那个代码，是在_SCREEN上显示前后两次Caption的值，一次是原先的，一次是被改变的，这个输出无非是告诉你这样操作成功了，与改变没有关系。真正改变Caption的动作，是调用ChangeCaption()那里，Caption值一变，窗体的文字马上变，不用再有什么操作的（等效于没有保护时直接对Caption赋值）。

再看看这个：

myForm1 = CREATEOBJECT("myForm")
WITH myForm1
    .Top = 50
    .Left = 50
    .Show
    WAIT WINDOW
    .SetCaption("")
    .Label1.Caption = "标题已置空"
ENDWITH
READ EVENTS
RETURN 

DEFINE CLASS myForm AS Form
   
    PROTECTED Caption
    Caption = "被保护的窗口标题"
   
    ADD OBJECT Label1 AS Label WITH Caption = "", Top = 10, Left = 10, AutoSize = .T.
   
    FUNCTION GetCaption() AS Character
        RETURN This.Caption
    ENDFUNC
   
    PROCEDURE SetCaption(tcCaption AS Character)
        This.Caption = tcCaption
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
ENDDEFINE

CLEAR
myForm1 = CREATEOBJECT("myForm")
myForm1.Show
? myForm1.GetCaption()
WAIT
myForm1.SetCaption("我的窗口")
? myForm1.GetCaption()
WAIT
RETURN

DEFINE CLASS myForm AS Form
   
    PROTECTED Caption
    Caption = "被保护的窗口标题"
   
    FUNCTION GetCaption() AS Character
        RETURN This.Caption
    ENDFUNC
   
    PROCEDURE SetCaption(tcCaption AS Character)
        This.Caption = tcCaption
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
   
ENDDEFINE

[ 本帖最后由 TonyDeng 于 2011-9-29 14:11 编辑 ]

把14楼的两个?语句删掉，也不会影响实际的变化，你试试。

TonyDeng：
改为9.0还不行，后把代码改成你指的行了。
有点难为情了。实才无能，特别对自定义方法及参数传递是一个圪。有2个疑问请教一下。

1).Label1.Caption = myForm1.GetCaption()   &&表示何意？
   .SetCaption("关闭本窗体则前一个窗体的标题将置空")  &&这是什么？是自定义方法吗？如果所有SetCaption(....)改为caption(...)或其它名,为什么会找不到方法或事件？

2)二个过程：对各种参数如何从什么地方传递又从什么地方返回

1)

这是从myForm2窗体中读取myForm1窗体的Caption属性，用意是向你示范这个GetCaption()方法在任何地方都是可以用的。须知Caption属性已被保护，无法直接读取myForm1.Caption的值，但用myForm1.GetCaption()方法却可以，纵然身在myForm2中，也仍然可以读到myForm1被保护起来的属性。正如你看到的，在运行时，myForm1.Caption的值被显示在myForm2的Label控件中，而代码也表明确实是从myForm2中读这个值的（没有使用技巧从myForm1向myForm2写数据）。

下面一行，刻意将myForm2的Caption设置成与myForm1的Caption不同，表明这是两个独立的窗体——但是从同一个类定义中生成！这是示范一个类生成多个对象实体的例子，有助于区分“类”与“对象”。而且，写这么句话，是提示你关闭这个窗体将会看到什么现象，不至于不知道下面该干什么。

2)

自定义方法与普通函数或过程是完全一样的。参数从调用处传入，返回调用处。比如myForm2.Label1.Caption = myForm1.GetCaption()，调用处就是这一行，执行（右边）myForm1对象的GetCaption()方法，把返回结果赋给（左边）myForm2的Label1.Caption中。注意：运行的是myForm1对象中的GetCaption()方法，而不是myForm2对象中的GetCaption()方法，虽然GetCaption()方法是类定义中的同一个代码，但在理论上，每个对象实体拥有各自独立的GetCaption()方法，彼此互不干涉。执行myForm1.SetCaption()，就改myForm1的Caption（方法代码很明确地写This.Caption = ，表明对自己所在的对象操作），不会影响myForm2的Caption，反之亦然。

我刻意写第一次那样的东西，是要向你证明，这是同一个类定义下两个对象实体有各自独立的行为，除了在类定义中写在共同拥有的东西之外，所有在外面各自改变的东西，分属各自，不会互相影响。每个对象是按照类创造出来的，前者是实体，后者是设计蓝图，虚的，同一张设计图可以生产无数个实体。

[ 本帖最后由 TonyDeng 于 2011-9-29 16:47 编辑 ]

多谢了，有点头绪。再仔细拜。.SetCaption("。。。")  表示什么？帮助中找不到？是自定的还是系统规定的。如果所有SetCaption(....)改为bcaption(...)或其它名,运行时：为什么会找不到方法或事件？

那是自定义的方法呀，代码中写着的，乱改名字当然没有，你写那是什么名字就什么名字，不限，比如你1楼的代码写ChangeCaption，我改成SetCaption，同一个东西。要明白，这是自己写的类，它有什么性能和属性，你说了算。

[ 本帖最后由 TonyDeng 于 2011-9-29 17:20 编辑 ]

myForm2 = CREATEOBJECT("myForm")
WITH myForm2
    .Top = 100
    .Left = 100
    .Label1.Caption = myForm1.GetCaption()
    .SetCaption("关闭本窗体则前一个窗体的标题将置空")
    .Show(1)
ENDWITH
WITH myForm1
    .SetCaption("")
    .Label1.Caption = "标题已置空"
ENDWITH
READ EVENTS
RETURN

DEFINE CLASS myForm AS Form
   
    PROTECTED Caption
    Caption = "被保护的窗口标题"
   
    ADD OBJECT Label1 AS Label WITH Caption = "", Top = 10, Left = 10, AutoSize = .T.
   
    FUNCTION GetCaption() AS Character
        RETURN This.Caption
    ENDFUNC
   
    PROCEDURE SetCaption(tcCaption AS Character)
        This.Caption = tcCaption
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
这样理介是否正确？红色的 .SetCaption("关闭本窗体则前一个窗体的标题将置空")与 .SetCaption("")是向自定义方法PROCEDURE SetCaption(tcCaption AS Character)传递参数是不是？
我知道属性可以批量设置，.SetCaption("关闭本窗体则前一个窗体的标题将置空")与 .SetCaption("")哪是什么东西？是属性还是？?,书中找不到setcaption()