Здравствуйте...
О чем может идти речь если Дестрой у формы выполняется, а у её компонентов не выполняется!
Причем я заметил следующее:
На форме есть грид, а у грида в ините я создаю объект:
this.oRightClick = CREATEOBJECT("empty")
ADDPROPERTY(this.oRightClick, "lSelected", .f.)
ADDPROPERTY(this.oRightClick, "Top", 0)
ADDPROPERTY(this.oRightClick, "Left", 0)
ADDPROPERTY(this.oRightClick, "Height", 0)
ADDPROPERTY(this.oRightClick, "BaseClass", "empty")
ADDPROPERTY(this.oRightClick, "Parent", this)

если строку "ADDPROPERTY(this.oRightClick, "Parent", this)" закоментарить , то форма закроется как положено.

MiklS splayn
если строку "ADDPROPERTY(this.oRightClick, "Parent", this)" закоментарить , то форма закроется как положено.
А если не Эзакоментировать, что пишет?
И зачем Grig объект Empty?

Ничего не пишет, просто все контролы остаются на своих местах, а форму закрыть нельзя, только свернуть или развернуть.

Этот объект необходим при создания всплывающего меню по правому клику на гриде.

MiklS Читайте Help!!!!!!!
References the container object of a control. Not available at design time; read-only at run time

in run time тоже самое...

MiklS read only переводится только для чтения!!!!!!!!!
Что Вы этим хотите сказать?

Поясню...
"Контейнер" empty мне нужен для хранения таких свойств как отступ слева, отступ сверху, ширина меню, родитель и еще пара свойств... по этому при создании формы меню я в форму передаю этот обект...

MiklSКак я уже говорил, Ваш Empty не нужен, но если Вы всётаки хотите сделать всё через ...., то добавляйте этот объект не в Grid, а в саму форму и ссылку делайте на Grid - ADDPROPERTY(this.oRightClick, "MyObject", this.Grid1)

Раз уж зашел такой разговор... ВАМ не приходило в голову, что у каждого грида может быть свое собственное меню... мало ли может гридов на форме больше одного... этот "лабораторный" случай я специально привел в качастве примера...

пришелмимов дестрое грида
написать

this.oRightClick = .f.

форма закроется

закрытие формы происходит в след-м порядке

автор
1. Form.queryUnload()
2. Form.destroy()
3. Form.[command buttons].destroy()
4. Form.[objects].destroy()
5. Form.unload()
6. DataEnvironment.afterCloseTables()
7. DataEnvironment.destroy()


Это мой дестрой в гриде
UNBINDEVENTS(this)
this.oRightClick = .NULL.
this.ofrmStartmenu = .NULL.
this.osubmenu = .NULL.
DODEFAULT()

просто поставил степ в дестрое формы он выполнился и все.... дестрой у контролов не выполняются...

а это свойство парент мне необходимо для рекурсивного вызова функции, в которой я высчитываю левый и верхний отступ появляющегося меню.

MiklSНу в таком случает Grid легче сделать на основе своего класса. Там хоть можно создавать не только свои свойства, но и методы обработки. А хранить настройки можно и в самом Grid -
This.AddProperty("lSelected")
Ну и так далее. Зачем для этого использовать "лишний" объект?

А много ли Вы встречали гридов со свойством oRightClick?

MiklSЭто понятно, но
ThisForm.Grid1.oRightClick.lSelected=.T.
или
ThisForm.Grid1.lSelected=.T.
получается короче, хотя смысл остаётся тот же!!!!!

Так... значит empty есть, был, и будет быть :).. это необходимо для переносимости меню на другие компоненты, а не только на любой грид... вопрос в другом... (см. выше!!!!)

прошелмимо
ну выдумщик

можешь не отписываться от событий
они из стека сами грохнутся при умирании объекта

дудефайлт - там метод предка какого-то
у тебя пронаследованные классы???

не нулл, .f.






да у меня пронаследованные классы. :) :) :) именно

можете промоделировать эту ситуацию:
создаем любой компонент пусть - сомбобокс, создадим ему свойство "o", у него в ините пишем строки:
public o
o = CREATEOBJECT("empty")
ADDPROPERTY(o, "Top", 0)
ADDPROPERTY(o, "Left", 0)
ADDPROPERTY(o, "Height", 0)
ADDPROPERTY(o, "BaseClass", "empty")
ADDPROPERTY(o, "lSelected", .f.)
ADDPROPERTY(o, "Parent", this)
this.o = o
Все... кладем этот комбо на форму и грузим форму :) :) :) а теперь пробуем форму закрыть :) :) :)

проходящий. this.oRightClick = CREATEOBJECT("empty")
ADDPROPERTY(this.oRightClick, "Parent", this)

если строку "ADDPROPERTY(this.oRightClick, "Parent", this)" закоментарить , то форма закроется как положено.
Ну и что тут непонятно? Во вновь созданный объект засунул ссылку на грид и хочешь, чтобы она автоматом прибилась? На каком основании? Что кроме тебя знает, что надо при дестрое грида грохнуть еще и этот твой .oRightClick? А в нем ведь есть ссылка на грид. Вот дестрой грида и обламывается. А за ним обламывается дестрой остальных контролов и формы. Дописывай в дестрой грида уничтожение .oRightClick.
Я ж уже писал это :) :) :):
UNBINDEVENTS(this)
this.oRightClick = .NULL.
this.ofrmStartmenu = .NULL.
this.osubmenu = .NULL.
DODEFAULT()

Разве this.oRightClick = .NULL. не убивает этот empty?

прошелмимопиши

set step on
в дестрой грида
и в анлоад формы

после дестрой грида

пойдут
дестрои неуничтоженных объектов

а затем должен стартовать
анлоад формы

в чем у Вас проблемы???

танцы с бубнами - слушайте одного человека

1.
set step on
в дестрой грида
и в анлоад формы
сделал.
2. Запустил форму.
3. Нажал на Х на форме (закрытие). ничего не произошло... просто Х - потух и стал не доступен.

ладно... на этом ВСЕМ огромное спасибо... выкручусь так:
в ините грида
BINDEVENT(thisform,'QueryUnload', this,'destroy',1)

прошелмимоесли возможно, нарисуйте маленький пример,
демонстрирующий Вашу проблему
можете промоделировать эту ситуацию:
создаем любой компонент пусть - сомбобокс, создадим ему свойство "o",
у него в ините пишем строки:
а в дестрое такой код:
Все... кладем этот комбо на форму и грузим форму :) :) :) а теперь пробуем форму закрыть :) :) :)
Можно даже степы понаставлять, где душа пожелает... только дебагер ни к чему не приведет, вернее нигде не остановится.