display objects 命令示例

下面的示例使用 define class 和 createobject( ) 从 visual foxpro 的表单基类中创建两个名为 formchild 和 formgrandchild 的用户自定义类。display object 显示有关对象和它们属性的信息。

clear
frmmyform = createobject("formgrandchild")
display objects like frm*
release frmmyform

define class formchild as form
enddefine

define class formgrandchild as formchild
enddefine