Как сделать копию формы?

[Nazario]

у меня на главной форме много компонентов и куча ностройок формы и кода .. мне нужно еще 10 таких же форм.как мне скопировать главную форму?

[Человек_Борща]

Просто создайте класс формы ещё over10000 раз.

[3D Hunter]

Создайте переменные класса вашей формы:

var
  LFrm:TForm1;
begin
  LFrm:=TForm1.Create(Application);
  LFrm.ShowModal;
  LFrm.Free;
end;

Суть, думаю, ясна.

[=master=]

Просто создайте класс формы ещё over10000 раз.

Не получится.

[Человек_Борща]

Сообщение от =master=

Не получится.

А с чегобы этого нельзя? Можно все, главное знать как

У меня все нормально..

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
f1: TForm1;
begin
f1 := TForm1.Create(Application);
try
f1.Caption:='Я ВТОРОЙ ЭКЗЕМПЛЯР КЛАССА TFORM1';
f1.ShowModal;
finally
f1.Free;
end;
end;

end.

только события осн. экземпляра назначаете, и вы имеете вторую копию себя.

[=master=]

Это только 2, а автор просил 11, вы же сказали что можно > 1000.
Тут думаю и до ста не дотянуть, а уж 1000 это вообще не реально.

[Hacker19_90]

Это только 2, а автор просил 11

ничё страшного заюзает массив и цикл и будет ему счастье!

[Пепел Феникса]

главное правильно обработчики событий писать.

[Человек_Борща]

Сообщение от =master=

Это только 2, а автор просил 11, вы же сказали что можно > 1000.
Тут думаю и до ста не дотянуть, а уж 1000 это вообще не реально.

А с чего вы взяли, что это не реально?
Если у вам RAM > 256 mb и видиокарта не древняя, то вполне возможно и овер9000 форм.

var
  Form1: TForm1;
  forms:array[0..999] of TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
 tStart,tEnd:Cardinal;
begin
   for i:=0 to 999 do
   begin
     tStart:=GetTickCount;
     forms[i]:=TForm1.Create(Application);
     forms[i].Caption:='Форма №'+IntToStr(i);
     forms[i].Show;
     tEnd:=GetTickCount-tStart;
     Memo1.Lines.Add('Создано: '+forms[i].Caption+' (Время:'+IntToStr(tEnd)+' ms)');
   end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   Memo1.Lines.SaveToFile('log.txt');
end;

успешно запилил 999 окон.
Правдо отрисовка сильно начала хромать.. Переключание окон занимает 0,5-1 сек.
Но 400-500 окон свободно держит, и даже не кривиться...

Последнее "овер9000" - читайте как "очень много".
Как вам удобнее...

Лог эксперимента приложил..

[3D Hunter]

Кто-нибудь может мне объяснить, на..я создавать столько форм? ТС просил только 10 штук
А вообще форменное уг жрет адресное пространство процесса, поэтому ограничение будет по-любому. По поводу 9999 форм не уверен в 32bit системах.