ShowModal & Show

Sashaua
Дата: 26.06.2019 12:53:18
Что бы не изобретать лисапет.
Есть конструкция
begin
  with TForm.Create(Application) do
  try
    Result := ShowModal = 1
  finally
    Free;
  end;


Мне надо в одном месте показать не модальную форму, Result := Show как поступают в этом случае, если заменить ShowModal на Show форма сразуже удаляется.
Прошу прощения наперед если вопрос совсем дурацкий.
Dimitry Sibiryakov
Дата: 26.06.2019 12:58:15

Sashaua
как поступают в этом случае

Убирают Free.

Posted via ActualForum NNTP Server 1.5

Мимопроходящий
Дата: 26.06.2019 13:06:15

+1

пропиши для этой формы обработчик OnClose
и в нём выстави Action := caFree;

Posted via ActualForum NNTP Server 1.5

Dimitry Sibiryakov
Дата: 26.06.2019 13:22:31

Мимопроходящий
пропиши для этой формы обработчик OnClose
и в нём выстави Action := caFree;

А вот это ты зря сказал. Сейчас выяснится, что "код только для примера", а в реальности
существует переменная, которой ссылка на форму присваивается.

Posted via ActualForum NNTP Server 1.5

Мимопроходящий
Дата: 26.06.2019 13:25:30

26.06.2019 13:22, Dimitry Sibiryakov пишет:

> А вот это ты зря сказал. Сейчас выяснится, что "код только для примера", а в реальности
> существует переменная, которой ссылка на форму присваивается.

переменную тоже можно "занулять" там же.
М.Шаламянский за это ратует.

Posted via ActualForum NNTP Server 1.5

Sashaua
Дата: 26.06.2019 14:07:55
Понятно, я думал а вдруг есть магический вариант решения.
Два и более различающихся решения, ведущих к одному ответу, то верным будет самое простое
Всем спасибо за помощь.
Василий 2
Дата: 26.06.2019 15:16:01
Sashaua
Понятно, я думал а вдруг есть магический вариант решения.

TApplication.CreateForm