从《VFP6中的_Assign方法》一文中，我总结出这么几点原则：

1、自定义属性可以变成对象；

2、对象可以象普通变量一样被传递到其他对象或其他对象的属性中，接收该对象变量的属性将变为对象；

3、源对象如果未被释放，将和接收被传递对象的属性变成的对象一模一样。也就是说，我们等于在目标属性上插入了一个源对象的链接。

我们先看第二条，对象可以被象普通变量一样被传递。

在上一篇中我专门讨论了“对象也是一种变量”的观点，只有理解了这一点，才能够接受传递对象的理论——是变量那么当然可以被传递了。实际上，对象变量被传递的方式更类似于传递数组，带着属性就好象数组的子集，也是一种变量！

没错，这就是我要证明的第二点：属性也是变量！

尤其是自定义属性，正因为其变量的本质，所以：属性也可以象变量一样被改变数据类型！

正如我们在《VFP6中的_Assign方法》一文中所看到的，一个表单的自定义属性，原来是逻辑型数据的，在将该属性指定为一个对象变量的名称以后，它的数据类型变成了对象型“O”，而且竟然也有了自己的属性！

属性的属性——不太好理解吧？其实，根本没什么属性的属性。原来的那个属性，现在已经变成了一个不折不扣的对象。是对象，当然可以有自己的属性了。而且，要注意的是：这个对象跟源对象是一模一样的——不止是一模一样，其实根本就是一个对象。

比如说：现在有表单A和B，A上带有一个Custom对象AOC；B有一个属性RcvAoc。现在我们从A表单向B表单传递AOC对象：

DO form B with thisform.AOC
thisform.hide

在B的INIT事件中接收AOC对象变量，并将它赋值给属性RcvAoc：

LParameters tmprcv
thisform.RcvAoc=tmprcv

这时，B表单的RcvAoc属性变成了一个与A表单的AOC对象除了名字外一模一样的对象，你可以用调试器的局部窗口观察一下。

从这时开始，我们对RcvAoc做的修改会反应在AOC上，而在AOC上做的修改也会反应在RcvAoc上。看到这里，你也许会脱口而出：这不是链接嘛！

没错，这就是我想证明的第三点：这种属性接收对象的传递变换，其实质是对象的链接。

一口气谈了那么多理论问题，你也许有点烦了：这看来有趣，但有什么用呢？别急，下面，我们就用这个理论来解决一个困扰我们多久的实际问题：给顶层表单添加工具栏。

顶层表单有些特殊性，是因为它的“顶层”的缘故。

用普通的建立工具栏的方法给顶层表单添加工具栏，会发现工具栏不能正常显示。事实上，工具栏被顶层表单挡在后面了，即使你把顶层表单的SHOWWINDOW属性设置为“最上层表单”、把AlwaysOnTop属性设置为.T.也没用。这是因为工具栏是一种特殊的表单，而在VFP中除了应用程序对象_VFP和_SCREEN对象,没有其它任何表单的层级比顶层表单高。

有的朋友就此认为顶层表单无法添加工具栏，因而放弃了使用顶层表单而用“古老”的屏幕。其实，顶层表单还是可以有工具栏的。

要给顶层表单程序添加工具栏，必须把工具栏做在顶层表单本身上，也就是说：要做成TOPFORM.ToolBar的形式。

下面是我参考有关书籍和《VFP6中的_Assign方法》一文找到的解决办法：

1.在类库MyVcx中建立一个工具栏类MyToolBar，将工具栏的ShowWindow属性设置为1——最上层表单；

2.给顶层表单添加一个自定义属性TopToolBar；

3.编辑顶层表单的Activate event,输入以下代码：

This.TopToolBar=NewObject("MyToolBar","MyVcx")
This.TopToolBar.show()
This.TopToolBar.dock(0)

现在，你就可以享受顶层表单的工具栏了！

以上只是应用三条原则中的第一条“属性可以变成对象”而已。用这三条金钥匙、发挥你的想象力，你可以作出更漂亮的魔术！