Как реализовать вложенную команду READ EVENTS | |
---|---|
МВВ Автор |
Как правильно реализовать вложение команды READ EVENTS. Вызываемая функция "проскакивает" не выполняя необходимые действия.
Заранее благодарен, Владимир. ... frmMyForm.AddObject('cmdCommand2','cmdMyCmdBtnAdd') frmMyForm.cmdCommand2.Visible =.T. frmMyForm.AddObject('cmdCommand3','cmdMyCmdBtnDel') frmMyForm.cmdCommand3.Visible =.T. frmMyForm.SHOW READ EVENTSDEFINE 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 EVENTSDEFINE 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 .... |
Re: Как реализовать вложенную команду READ EVENTS | |
---|---|
boba Сообщений: 6269 Откуда: Медвежьи озера- Дата регистрации: 26.03.2001 |
Обычно read events пишут 1 единственный раз в головной программе
Те на нем висят самые разные формы, а не одна, как у вас В вашем примере вообще непонятно, для чего писать этот жутко сложный код на форму. Просто сделайте ее в дизайнере Если нет головной программы, то do form formname read events Где то в разгрузке формы напишите clear events ------------------ не имей 100 рублей, а имей сто друзей |
Re: Как реализовать вложенную команду READ EVENTS | |
---|---|
Burn Сообщений: 5644 Откуда: Днепр Дата регистрации: 02.01.2002 |
READ EVENTS вложеность не ПОДДЕРЖИВАЕТ
Работает только первый, остальные игнорируются ------------------ В борьбе бобра с козлом побеждает бобро |
Re: Как реализовать вложенную команду READ EVENTS | |
---|---|
Penner Сообщений: 4102 Откуда: Muenster Дата регистрации: 26.04.2002 |
для остальных форм смотри в сторону модальности
|
Re: Как реализовать вложенную команду READ EVENTS | |
---|---|
МВВ Автор |
Не затруднит ли Вас просветить неопытного человека о модальности форм.
Заранее благодарен |
Re: Как реализовать вложенную команду READ EVENTS | |
---|---|
Penner Сообщений: 4102 Откуда: Muenster Дата регистрации: 26.04.2002 |
для начала прочти в хелпе про WindowType Property
|
© 2000-2024 Fox Club  |