закрытие формы

← →
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]

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

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

Нет.

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