Корректное уничтожение форм, созданных в runtime...

← →
3APA3A © (2004-08-20 15:03) [0]

Есть процедура
for i := 1 to ... do TForm1.Create(nil).Show;

В обработчике TForm1.OnClose написано
Self.Free;

Корректно ли здесь возвращается память?
Просто лень возится с массивом типа TForm1 и т.д.

← →
Sandman25 © (2004-08-20 15:04) [1]

TForm1.Create(Application)

и не надо будет возиться.

> Корректно ли здесь возвращается память?

Нет

← →
Anatoly Podgoretsky © (2004-08-20 15:06) [2]

Сам себе харакири делаешь.

← →
ламер © (2004-08-20 15:06) [3]

Action := caFree;

← →
3APA3A © (2004-08-20 15:12) [4]

to Sandman25
хорошо, создам я ее как TForm1.Create(Application).
а как мне вызвать Free при WM_Close?

to Anatoly Podgoretsky
благодарю за очень содержательный ответ.

← →
Суслик © (2004-08-20 15:13) [5]

> 3APA3A © (20.08.04 15:12) [4]

ну типа [3]

← →
HSolo © (2004-08-20 15:15) [6]

[3] в обработчике OnClose

← →
3APA3A © (2004-08-20 15:16) [7]

метод Free не вызывается при Action := caFree;
пишу
procedure TForm1.Free;
begin
MessageBox(0, "Free", nil, MB_TOPMOST);
inherited Free;
end;

MessageBox не вылезает при закрытии формы из чего я делаю вывод что Free не вызывается...

← →
Суслик © (2004-08-20 15:17) [8]

> MessageBox не вылезает при закрытии формы из чего я делаю
> вывод что Free не вызывается...

зря делаете.
Принцыпы ООП представляете?

← →
3APA3A © (2004-08-20 15:19) [9]

Представляю. А конкретнее?

← →
Суслик © (2004-08-20 15:20) [10]

ну полиформизм типа?
free не виртаульнаый метод.

← →
s999 (2004-08-20 15:21) [11]

Эх... Free не виртуальный, поэтому твой код отработает только при твоем же явном вызове. Если хочешь все-таки убедится, то вставляй в Destroy.

Self.Close не прокатит?

Да... Не виртуальный... Только сейчас удосужился посмотреть...
То есть - если я напишу Action := caFree - все будет нормально?

← →
s999 (2004-08-20 15:26) [15]

> То есть - если я напишу Action := caFree - все будет нормально?

Да.

← →
s999 (2004-08-20 15:31) [16]

> > То есть - если я напишу Action := caFree - все будет нормально?
>
>
> Да.

Хотя, тут есть забавный момент. Если ты где-нибудь далее, в обработчиках, напишешь:

Application.ProcessMessages;

То... можешь вернуться к ситуации с которой начал топик :))

Корректное уничтожение форм, созданных в runtime... Найти похожие ветки