this 对象引用示例

在下面的示例中，基于 form 类创建了一个子类 myform。创建了名为 changebackcolor 的方法。changebackcolor 使用 this 引用 myform。

define class myform as form
caption = this form
height = 15
width = 20

procedure changebackcolor
parameter newcolor
this.backcolor = newcolor
endproc
enddefine