[koshelevdmitry]

Добрый день. Подскажите как можно скопировать форму, чтобы все свойства и объекты были такие же как и у главной???

[M.A.D.M.A.N.]

Скопировать в каком смысле?
Создать второе окно во время выполнения программы?
Вопросы как всегда радуют.

[koshelevdmitry]

Сообщение от M.A.D.M.A.N.

Скопировать в каком смысле?
Создать второе окно во время выполнения программы?
Вопросы как всегда радуют.

В смысле, что у меня должны быть 6 одинаковых форм на которых куча одинаковых компонент. Множество настроек формы. Большой код. Вручную это всё копировать лень.

[Assistant]

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

В смысле, что у меня должны быть 6 одинаковых форм на которых куча одинаковых компонент. Множество настроек формы. Большой код. Вручную это всё копировать лень.

дык скопируй например:
unit1.pas, unit1.dfm в новый: unit2.pas, unit2.dfm - только в новых измени название формы (класс формы) и юнита. В общем смысл думаю понятен.

[M.A.D.M.A.N.]

Код:

var
  f1, f2, f3: TMainForm;
begin
  f1 := TMainForm.Create(nil);
  f2 := TMainForm.Create(nil);
  f3 := TMainForm.Create(nil);
  f1.show;
  f2.show;
  f3.show;
end;

[NumLock]

Код:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
  i: Integer;

begin
  Application.Initialize;
  for i:=1 to 6 do
  begin
    Application.CreateForm(TForm1, Form1);
    Form1.Left:=i*32;
    Form1.Show;
  end;
  Application.Run;
end.

[Assistant]

а мож человеку нужно просто 6 новых одинаковых форм в проекте создать? ))

[M.A.D.M.A.N.]

Суть проблемы так и не ясна, что он хочет. Либо несколько копий юнита, либо несколько окон сразу.

[koshelevdmitry]

Сообщение от M.A.D.M.A.N.

Суть проблемы так и не ясна, что он хочет. Либо несколько копий юнита, либо несколько окон сразу.

Несколько окон сразу)))

Извеняюсь за путаницу)))

[stil]

Тогда NumLock дал тебе ответ на твой вопрос