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

[Shouldercannon]

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

А теперь вопрос вам ВСЕ ЕЩЕ НУЖЕН этот масссив Forms.

Перешёл на TObjectList
Form1

var
  Form1: TForm1;
  Forms: TObjectList;
...
procedure TForm1.ListView1Click(Sender: TObject);
var
  i: Integer;
begin
  Forms := TObjectList.Create(True);
  i := Forms.Add(TForm2.Create(Application));
  TForm2(Forms[i]).txt := ListView1.Items[ListView1.ItemIndex].Caption;
  TForm2(Forms[i]).MyProcedure;
end;

Form2

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button2: TButton;
    Edit1: TEdit;
    PopupMenu1: TPopupMenu;
    est1: TMenuItem;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    txt: string;
    procedure MyProcedure;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

type
  TMyThread_Thread = class(TThread)
  private
    { Private declarations }
    s: string;
    txt: string;
    MyForm: TForm2;
  protected
    procedure Execute; override;
    procedure SyncProc;
  public
  end;

var
  Form2: TForm2;
  MyThread_Thread: TMyThread_Thread;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
end;

procedure TForm2.MyProcedure;
begin
  MyThread_Thread := TMyThread_Thread.Create(True);
  MyThread_Thread.txt := txt;
  MyThread_Thread.MyForm := Self;
  MyThread_Thread.FreeOnTerminate := True;
  MyThread_Thread.Resume;
end;

procedure TMyThread_Thread.Execute;
begin
  s := txt;
  Synchronize(SyncProc);
end;

procedure TMyThread_Thread.SyncProc;
begin
  MyForm.Caption := s;
  MyForm.Edit1.Text := s;
  MyForm.Show;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  MyProcedure;
end;

end.

Работает и пока без ошибок.

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

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

Без глобальной переменной никак нельзя иначе где держать полученную переменную пока формы "живёт"?

[evg_m]

Без глобальной переменной никак нельзя иначе где держать полученную переменную пока формы "живёт"?

В полях классов.

myform: TForm2;

var
  Form2: TForm2;
  MyThread_Thread: TMyThread_Thread;

procedure TForm2.MyProcedure;
begin
  MyThread_Thread := TMyThread_Thread.Create(True);

При каждом создании формы мы ТЕРЯЕМ ссылку на поток созданный предыдущей формой. Теперь предыдущий поток НИКАК не остановить, пока работает приложение.

И не дай бог создание форм тоже уйдет в потоки (одновременное создание нескольких форм).

Без глобальной переменной никак нельзя иначе где держать полученную переменную пока формы "живёт"?

а зачем ее держать, приложение и так держит все СОЗДАННЫЕ И НЕ УНИЧТОЖЕННЫЕ формы Screen.Forms.