Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];

Вниз

Owner.Free   Найти похожие ветки 

 
Still Swamp   (2003-08-06 11:29) [0]

Вместе закрытием формы я хочу извести объект ее породивший.

создание формы MyForm:=TForm.Create(MyObject);
если я на MyFromOnClose сделаю Owner.Free, то объект родительский MyObject будет разрушен, но далее произойдет исключительная ситуация.

Как мне выкрутиться?


 
Семен Сорокин   (2003-08-06 11:32) [1]

MyForm:=TForm.Create(nil);


 
Still Swamp   (2003-08-06 11:35) [2]

ниии.... Owner мне надо передать.
Окошко MDI
На момент MyFormOnActivate в окне этот самый Owner мне уже нужен.
А у MDI OnActivate вызывается сразу после Create. Те в Create уже нужно передавать Owner.


 
Семен Сорокин   (2003-08-06 11:46) [3]

Still Swamp (06.08.03 11:35)
перепиши конструктор

constructor TForm1.Create(AOwner: TComponent);
begin
inherited Create(nil);
FOwner := AOwner
end;


 
Still Swamp   (2003-08-06 12:15) [4]

Это тоже вариант не очень.
Тогда уж
Constructor TForm.Create(AOwner:TComponent; MyObject:TComponent);

но это как то тоскливо....



 
Семен Сорокин   (2003-08-06 12:21) [5]

можно еще так:

destructor TForm1.Destroy;
begin
inherited Destroy;
FOwner.Free
end;


:))


 
Fay   (2003-08-06 12:26) [6]

FOwner.Release; 8)


 
Still Swamp   (2003-08-06 14:30) [7]

о! во! оно.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.159 c
3-68225
Алексей
2003-07-25 15:38
2003.08.21
Как получить список уникальных значений поля БД ?


4-68597
ruslan_as
2003-06-18 15:24
2003.08.21
Какие параметры применяются при запуске exe-файла


1-68255
Nodo
2003-08-09 03:19
2003.08.21
Перевод цвета : clXXXXX -> #XXXXX


14-68463
MsGuns
2003-08-06 13:22
2003.08.21
Палец.


1-68353
-=GaLaN=-
2003-08-07 10:53
2003.08.21
Почему *.cpl не запускаются?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский