* В следующем примере создается подкласс с именем MyForm на основе
* базового класса Visual FoxPro Form. В подклассе MyForm создается метод
* Click, обеспечивающий выдачу сообщения WAIT WINDOW, когда вы
* щелкаете в форме MyForm.

* Затем создается новый подкласс с именем AnotherForm на базе
* подкласса MyForm. В подклассе AnotherForm тоже создается метод Click.
* В методе Click подкласса AnotherForm используется следующая строка,
* выполняющая метод Click родительского класса:

* MyForm::Click

* После завершения метода Click родительского класса (с выдачей
* сообщения WAIT WINDOW) выполняется дополнительный код,
* изменяющий цвет фона формы.

DEFINE CLASS MyForm AS FORM

.

.

PROCEDURE Click

WAIT WINDOW 'MyForm has been clicked'

ENDPROC

ENDDEFINE

DEFINE CLASS AnotherForm AS MyForm

.

.

PROCEDURE Click

MyForm::Click

This.BackColor = This.BackColor+1

ENDPROC

ENDDEFINE