Главная страница
    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.45 MB
Время: 0.007 c
4-68576
NED
2003-06-18 19:28
2003.08.21
Работа с семафорами


4-68588
Борис К.
2003-06-18 11:17
2003.08.21
Проблема с ProgressBar и копированием файлов под XP...


14-68533
Silentor
2003-08-04 17:50
2003.08.21
Как получить доступ к портам компьютера под Win32?


1-68375
АлеКс
2003-08-07 05:37
2003.08.21
Потоки


3-68161
oss
2003-07-28 12:01
2003.08.21
поднять базу





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский