Исходники этого дела находятся здесь: http://yoksel.cvs.sourceforge.net/yoksel/SpreadSheet/SheetController.cpp?revisio...

Все оказалось проще. GetFieldWnd объекта CGetDoc7 сразу возвращает нормальный CWnd * моего элемента управления.

Дальше все элементарно. Убеждаемся, что это CWnd именно моего элемента управления. Кастим CWnd * к указателю на мой элемент. Получаем из этого указателя смартпойнтер. На основе смартпойнтера автоматически создается контекстная обертка.

Насколько это реально/проще/сложнее для реализации в 1С++ не в курсе.

Arta писал(а) 17. Января 2008 :: 16:45:

Насколько я понимаю, в моем случае такое не произойдет. Если будет убит последний объект типа "ТабличныйДокумент.ЭлементУправления", то автоматом будет убито окно с элементом управления. В этом случае при запросе CWnd будет выдаваться NULL.

Ты не понял.


1. Элемент = Т.ПолучитьЭлементУправленияИзЭлементаФормы (Форма, "ТабличныйДокумент");
2. Закрываем форму с Объектом, оставляя при этом ссылку на него в переменной
3. Обращаемся к свойству или методу переменной Элемент. Что я получу?

Проще попробовать

Хотяяя... Там могут быть операции с HWND, который уже дохлый. Надо будет попробовать, что будет.

Arta писал(а) 17. Января 2008 :: 16:56:

Конечно! Объект при этом не обязательно должен быть убитым. Сейчас проверил так.

В глобальник запихнул переменную гТест.

Процедуру поменял так:

Процедура Тест ()
	Т = СоздатьОбъект ("ТабличныйДокумент");
	Элемент = Т.ПолучитьЭлементУправленияИзЭлементаФормы (Форма, "ТабличныйДокумент");
	Сообщить (ТипЗначенияСтр (Элемент));
	Сообщить ("" + Элемент.Документ.ВысотаТаблицы ());
	гТест = Элемент;

	Элемент = Т.ПолучитьЭлементУправленияИзЭлементаФормы (Форма, "ВыбФайл");
КонецПроцедуры
 

Т.е. элемент записывается в гТест.

Далее закрываю форму. И запускаю такой код:

Процедура Тест2 ()
	Сообщить (гТест.Документ.ВысотаТаблицы ());
	Т = СоздатьОбъект ("ТабличныйДокумент");
	гТест.Документ = Т;
КонецПроцедуры
 

Все работает так, как и ожидалось.

Arta писал(а) 17. Января 2008 :: 17:04:

Ну да, как и везде в 1С Типа, если создал ТЗ мегов эдак на 200 и запихнул в ГМ, то сам себе мохнатый Буратино.

Артем, плиз, добавь в баг багзиллы описалово на решение Олега.
Освобожусь, постараюсь разобраться и поправить
ЗЫ возможно, kms поучаствует для ТП, побеседуй с ним

Вот как раз если не делать delete, а DestroyWindow, и будут утечки памяти.
Поясню.
DestroyWindow не делает ничего, кроме как вызова этой же апишной функции, которая разрушает окно, но НЕ УНИЧТОЖАЕТ объект CWnd.
А по поводу двойного удаления - в данном случае 1С НЕ ХРАНИТ указатели на CWnd контролов, а когда нужно, дергает GetDlgItem с нужным ID, и по полученному HWND делает CWnd::FromHandlePermanent, чтобы получить CWnd*. Это и позволяет создав окно с тем же идшником, подменить атрибут формы, и как показала практика, 1С при убитии формы, удаляет именно объект CWnd нового, нами созданного окошка.