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

закрытие формы   Найти похожие ветки 

← →
Andrey V.   (2003-05-29 07:38) [0]

Если я вызываю форму так :
with TEditForm.Create(Application) do begin
try
ShowModal;
finally
Free;
end;{try}
end;{with}

имеет ли смысл писать :
procedure TEditForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;

---

← →
Forester ©   (2003-05-29 08:07) [1]

Никакого смысла. Подобный подход используется для закрытия немодальных форм.

---

← →
Skier ©   (2003-05-29 08:22) [2]

> имеет ли смысл писать :

Нет.

---

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

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



Память: 0.45 MB
Время: 0.012 c