Освобождение памяти из под формы

← →
Dyusha © (2005-03-12 17:32) [0]

Здравствуйте Уважаемые Мастера!!!
В своем приложении я перевел все формы, кроме главной из Auto-create forms в Available forms. В приложении формы вызываю следующим способом:

Form2:=TForm2.Create(Application);
Form2.show;

У меня такой вопрос, в какое лучше событие поместить команду освобождения памяти form2.Free;

Заранее благодарен за помощь……

← →
P.N.P. © (2005-03-12 17:37) [1]

в Form2.OnClose
написать
Action:=caFree;

← →
aus (2005-03-12 17:40) [2]

У формы в OnClose
Action := caFree
если она тебе больше не нужна.

← →
Leonid Troyanovsky © (2005-03-12 17:47) [3]

> Dyusha © (12.03.05 17:32)

> В своем приложении я перевел все формы, кроме главной из
> Auto-create forms в Available forms. В приложении формы
> вызываю следующим способом:
>
> Form2:=TForm2.Create(Application);
> Form2.show;
>
> У меня такой вопрос, в какое лучше событие поместить команду
> освобождения памяти form2.Free;

procedure TForm2.DoClose(var Action: TCloseAction); // override;
begin
Action := caFree;
inherited;
end;

--
Regards, LVT.

← →
Anatoly Podgoretsky © (2005-03-12 18:14) [4]

Dyusha © (12.03.05 17:32)
Ни в какое, это верная смерть.

← →
Dyusha © (2005-03-12 19:28) [5]

>>Anatoly Podgoretsky
так как без освобождения, ведь всю память "позасерает"...извиняюсь

>>Leonid Troyanovsky
что за Action := caFree???

← →
Zeqfreed © (2005-03-12 19:55) [6]

Dyusha © (12.03.05 19:28) [5]

The TCloseEvent type points to a method that handles the closing of a form. The value of the Action parameter determines if the form actually closes. These are the possible values of Action: caNone The form is not allowed to close, so nothing happens. caHide The form is not closed, but just hidden. Your application can still access a hidden form. caFree The form is closed and all allocated memory for the form is freed. caMinimize The form is minimized, rather than closed. This is the default action for MDI child forms.

← →
VXxxx (2005-03-12 23:31) [7]

2 [4] Уже скоро.

Спасибо за советы, но я сделал немного подругому. Вот так:
var Form1 : TForm; begin Application.CreateForm(TForm, Form1); try Form1.ShowModal; finally Form1.Free; end;

Освобождение памяти из под формы Найти похожие ветки