Открыть несколько экземпляров формы

[Shouldercannon]

Пытаюсь открыть несколько экземпляров Form2.
1. Form2 в опциях проекта перенёс в Available forms
2. Использую код и получаю ошибку

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure ListView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TFormArray = array of TForm2; // [Error] Unit1.pas(20): Undeclared identifier: 'TForm2'

var
  Form1: TForm1;
  Forms: TFormArray;
  i: Integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.ListView1Click(Sender: TObject);
begin
  i := Length(Forms);
  SetLength(Forms, i + 1);
  Forms[i] := TForm2.Create(Application);
  Forms[i].Caption := 'User ' + IntToStr(i);
  Forms[i].Show;
end;

end.

Что не так? Где долно быть размещено?

type
  TFormArray = array of TForm2;

[Аватар]

Ссыль на Unit2 вынести в interface. Возможны проблемы, если в Unit2 упоминается Unit1. Проблем не будет, если в Unit2 ссылка на Unit1 будет в implementation. По хорошему в отдельном юните описание типа TFormArray и на этот юнит ссылки из Unit1 и Unit2

[puporev]

type TFormArray = array of TForm;

Зачем еще и 2?

[Shouldercannon]

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

Ссыль на Unit2 вынести в interface.

Тоесть сюда?

unit Unit1;

interface
// <-- сюда
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

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

Возможны проблемы, если в Unit2 упоминается Unit1

Не упоминается

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

type TFormArray = array of TForm;

Зачем еще и 2?

+
Заработало, теперь связь с публичной процедурой Form2 потеряна.
Явно не пройдет

Form2.Test;

и тоже

Form[i].Test;

[puporev]

связь с публичной процедурой Form2 потеряна

Может создать Form2 обычно, без массива? А 3 и более в массиве.

[Аватар]

Тоесть сюда?

Ага, туда её родимую

[northener]

TForm2(Form[i]).Test;

[Shouldercannon]

Не учёл, что в Unit2 есть поток и в потоке есть обращение к компонентам формы

Form2.Что-то

Как в данном случае обратиться к

что-то

[Stilet]

Ну а то что northener написал не прокатывает?

[evg_m]

Не учёл, что в Unit2 есть поток и в потоке есть обращение к компонентам формы

А что поток общается со всеми сколько есть форм?

Нет он общается с одной.
В таком случаем объявите поле

TMyThred =class(TThread)
private
myform: TForm2;
...
end;

при инициализации потока (после создания) присвойте ему одну из вашего списка

thredX.mayform:=forms[???];

И внутри потока пользуйтесь этой переменной.

myform.что-то

А теперь вопрос вам ВСЕ ЕЩЕ НУЖЕН этот масссив Forms.
Есть ли где обращение к нему кроме:

Setlength
Forms[j]:=TForm2.Create;
myform:=Forms[j];
Forms[j].Free;

в таком случае достаточно.

myForm:=TForm2.Create;
myform.Free;

Заработало, теперь связь с публичной процедурой Form2 потеряна.

http://www.gunsmoker.ru/2011/04/blog-post.html