Привет!
Столкнулся с такой непоняткой... - мелочь, но неприятно и уже замучало.
Значит есть форма с гридом и на форме есть кнопка "Редактировать", клик() которой вызывает другую форму (Do Form edit). У обоих форм есть классовая кнопка "Выход", в клик() которой прописано thisform.Release().
Теперь, если на форме с гридом нажать кнопку "Редактировать", то по нажатию в форме-редакторе кнопки "Выход" - форма-редактор уничтожается. Все как положено.
Но если в гриде нажать Ентер, то в его KeyPress срабатывает такой код (на nKeyCode = 13):
1.
2.
3.
4.
5.
6.
7.
FOR EACH loCtrl IN this.parent.Controls
IF (UPPER(m.loCtrl.Class) == 'BTNEDIT' OR UPPER(m.loCtrl.Class) == 'COMMANDBUTTON';
AND PEMSTATUS(m.loCtrl,"myGrid_Action", 5 ) AND GETPEM(m.loCtrl,"myGrid_Action"));
AND m.loCtrl.Visible AND m.loCtrl.Enabled
m.loCtrl.Click()
EXIT
ENDIF
ENDFOR
т.е. ищется кнопка класса 'BTNEDIT' у которой выставлено св-во "myGrid_Action" и если таковая обнаруживается (таки да и это та самая кнопка "Редактировать") то запускается ее клик(). При этом форма-редактор появляется, но кнопка "Выход" тупо не работает, т.е. код thisform.Release() исполняется, но к уничтожению формы это не приводит. Выход тогда возможен только через стандартную кнопку "Закрыть" (которая вызывает QueryUnload).
Такая же картина если на DblClick() грида прописать вызов KeyPress(13), т.е. когда физически сам Ентер не нажимается.
Пробовал выносить m.loCtrl.Click() за тело цикла - не помогает. Пробовал перед этим добавлять NODEFAULT - не помогает.
Интересно - если в KeyPress грида жестко прописать на nKeyCode = 13
this.parent.btnEdit1.Click()
то никаких проблем не возникает.
В чем мб дело?
вфп9
