Как правильно реализовать вложение команды READ EVENTS. Вызываемая функция "проскакивает" не выполняя необходимые действия.
Заранее благодарен, Владимир.

...
frmMyForm.AddObject('cmdCommand2','cmdMyCmdBtnAdd')
frmMyForm.cmdCommand2.Visible =.T.
frmMyForm.AddObject('cmdCommand3','cmdMyCmdBtnDel')
frmMyForm.cmdCommand3.Visible =.T.
frmMyForm.SHOW

READ EVENTS

DEFINE CLASS cmdMyCmdBtnDel AS CommandButton
FontName = 'Times New Roman'
FontSize = 11
Caption = 'Удалить'
Left = 175
Top = 350
Height = 25
PROCEDURE Click
IF MyMessageBox ("Удалить запись") Then
SELECT spkat
DELETE
ENDIf
ENDDEFINE

...
FUNCTION MyMessageBox
PARAMETERS MessageBoxText
pfMyForm.AutoCenter = .T.
pfMyForm.BorderStyle = 2
pfMyForm.AddObject('cmdCommand1','pfcmdMyCmdBtnYes')
pfMyForm.cmdCommand1.Visible =.T.
pfMyForm.AddObject('cmdCommand2','pfcmdMyCmdBtnNo')
pfMyForm.cmdCommand2.Visible =.T.
pfMyForm.SHOW
@ 1, 1 Say MessageBoxText

READ EVENTS

DEFINE CLASS pfcmdMyCmdBtnYes AS CommandButton
FontName = 'Times New Roman'
FontSize = 11
Caption = 'Да'
Cancel = .t.
Left = 10
Top = 70
Height = 25

PROCEDURE Click
CLEAR EVENTS
RETURN .F.
ENDDEFINE

....

Обычно read events пишут 1 единственный раз в головной программе
Те на нем висят самые разные формы, а не одна, как у вас
В вашем примере вообще непонятно, для чего писать этот жутко сложный код на форму.
Просто сделайте ее в дизайнере
Если нет головной программы, то
do form formname
read events
Где то в разгрузке формы напишите clear events

READ EVENTS вложеность не ПОДДЕРЖИВАЕТ
Работает только первый, остальные игнорируются

для остальных форм смотри в сторону модальности

Не затруднит ли Вас просветить неопытного человека о модальности форм.

Заранее благодарен

для начала прочти в хелпе про WindowType Property