Удаление формы

← →
AlexanderSK © (2003-02-20 14:35) [0]

Почему когда удаляем объект, например TPanel: panel.free, после вызова Free pfnel=nil. А при удалении формы (Form.Relase) Form <> nil. Как понять что форма была удалена? проверка на nil уже не подходит?

← →
Anatoly Podgoretsky © (2003-02-20 14:42) [1]

Screen используй

← →
Dms (2003-02-20 14:43) [2]

Release does not destroy the form until all event handlers of the form and event handlers of components on the form have finished executing.

Читай хелп.

← →
AlexanderSK © (2003-02-20 15:13) [3]

>Dms (20.02.03 14:43)
Хелп прочитан
И форма УДАЛЯЕТСЯ (form.что-нибудь - вызывает ошибку)!
Так что "Release does not destroy the form until all event handlers of the form and event handlers of components on the form have finished executing." - тут совершенно не причем!!!

← →
Anatoly Podgoretsky © (2003-02-20 15:37) [4]

Это точно, но зато я знаю что при том.

У тебя в программе ошибка и источник ее ты. Еще раз читай хелпы и устраняй свои ошибки.

← →
AlexanderSK © (2003-02-20 16:14) [5]

>Anatoly Podgoretsky © (20.02.03 15:37)
Т.е. после вызова Form.Relise должно быть form=nil?

← →
Владислав © (2003-02-20 16:34) [6]

Нет. Только после Form := nil.

← →
AlexanderSK © (2003-02-20 16:37) [7]

>Anatoly Podgoretsky © (20.02.03 15:37)
Т.е. после вызова Form.Relise должно быть form=nil?

← →
Mikhail V (2003-02-20 16:37) [8]

FreeAndNil

AlexanderSK © (20.02.03 16:37)
Не обязательно, а зачем тебе ее обнулять?
Ты что ее повторно используешь, ну тогда не удивляйся на ошибки.

>Владислав ©
Спасибо!

>Anatoly Podgoretsky ©
Вот и я о том-же (см. Владислав ©). А "Это точно, но зато я знаю что при том. У тебя в программе ошибка и источник ее ты. Еще раз читай хелпы и устраняй свои ошибки." Тут НЕ ПРИЧЕМ!!!

> AlexanderSK © (20.02.03 17:06)

Еще как причем ;)
Компилятор за тебя думать не будет!
Внимательно читай Anatoly Podgoretsky © ! ;)

Удачи.

← →
Aldor (2003-02-20 20:17) [12]

Короче, не парь себе мозги и пиши FreeAndNil(Form), если Delphi6, если нет, то

procedure FreeAndNil(var Obj);
var
Temp: TObject;
begin
Temp := TObject(Obj);
Pointer(Obj) := nil;
Temp.Free;
end;

Удаление формы Найти похожие ветки