Скачать: CL | DM;

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

← →
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] Уже скоро.

---

← →
Palladin ©   (2005-03-13 01:08) [8]

> [6] Zeqfreed ©

сеча па буквам переведет... и многие слова покажутся незнакомыми..

---

← →
Anatoly Podgoretsky ©   (2005-03-13 01:12) [9]

Dyusha ©   (12.03.05 19:28) [5]
Причем тут освобождене, я говорю про form2.Free это верная смерть.

---

← →
Dyusha ©   (2005-03-16 06:16) [10]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.039 c