Манипуляции с динамически создаваемой формой

[Shouldercannon]

Есть проект состоящий из двух форм. Form1 создаётся автоматически, Form2 вручную. Форму создаю вручную, так как она за всё время работы программы может быть ни разу не задействована. Динамическое создание конечно хорошо, но это способ начинает плодить форму множество раз, что не нужно.

Наброски, но кажутся кривыми

Form1

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  procedure SwitchToThisWindow(AWindow: HWND; ARestore: BOOL); stdcall; external user32 Name 'SwitchToThisWindow';

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Form2.Show
  except
    Form2 := nil;
  end;
  if not Assigned(Form2) then
  begin
    Form2 := TForm2.Create(Form1);
    Form2.Show;
  end
  else
  begin
    Form2.WindowState := wsNormal;
    SwitchToThisWindow(Form2.Handle, True);
  end;
end;

end.

Form2

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    I: Integer;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.

[Alex11223]

Сообщение от Shouldercannon

проект состоящий из двух форм. Form18

Сообщение от Shouldercannon

начинает плодить форму множество раз, что не нужно.

так не плодите. Сохраняйте в не локальную переменную и проверяйте.

[Аватар]

Твой Action := caFree; память освободит, но не очистит и Form2 в nil не сбросит. И не факт, что Form2.Show в этом случае обязательно подымет исключение как тебе хочется. Можно при закрытии какую-то глобальную переменную устанавливать и её анализировать перед Show. Можно в Screen.Forms поискать еще без всяких глобальных переменных

[Black Fregat]

Сообщение от Shouldercannon

Форму создаю вручную, так как она за всё время работы программы может быть ни разу не задействована.

Экономия на спичках ИМХО. Там что, какой-то тяжёлый запрос к базе при создании? Или 100500 локальных переменных? Ради чего городить огород?

[Аватар]

А чего на спичках? В одном из проектов даже не знаю сколько форм, наверно не меньше пары сотен. Только главная и пара датамодулей в dpr, остальные только динамически. В чем проблемы динамического создания и корректного контроля?

[Shouldercannon]

Сообщение от Аватар

А чего на спичках? В одном из проектов даже не знаю сколько форм, наверно не меньше пары сотен. Только главная и пара датамодулей в dpr, остальные только динамически. В чем проблемы динамического создания и корректного контроля?

Проблема в организации корректного контроля

[Alex11223]

Сообщение от Black Fregat

Экономия на спичках ИМХО. Там что, какой-то тяжёлый запрос к базе при создании? Или 100500 локальных переменных? Ради чего городить огород?

Вообще Дельфи единственный известный мне GUI фреймворк, где все формы по умолчанию создаются при запуске )

[Аватар]

Проблема в организации корректного контроля

Так например для не модальных и что-бы не более одного экземпляра TForm2 могло существовать. Action:=caFree при закрытии Form2

  Exists:=False;
  for i:=0 to Screen.FormCount-1 do if Screen.Forms[i]=Form2 then begin Exists:=True; Break; end;
  if not Exists then Form2:=TForm2.Create(Application);
  Form2.Show;

Для модальных Free после ShowModal. caFree не нужно, там ModalResult для выхода

[northener]

Сообщение от Аватар

Для модальных Free после ShowModal. caFree не нужно

Разве? Закрытие модальной формы память ей выделенную не освобождает.
А для динамически создаваемых модальных форм есть стандартный шаблон кода

with TMyModalDynamicForm.Create() do try
...
finally
  Free;
end;

Готов бросить камень и даже кучу камней в того, который скажет что такие формы надо создавать и уничтожать иначе.

[Аватар]

Разве? Закрытие модальной формы память ей выделенную не освобождает.

А где утверждалоcь что освобождает? Предлагалось освобождать её по выходу из формы:

Для модальных Free после ShowModal

А уж "стандартным" шаблоном или по другому это вопрос 18-ый. Кстати with не использую принципиально, считаю его дополнительным источником ошибок и он мне только мешает и затрудняет отладку