[VolodinAS]

Здравствуйте.
Требуется динамическое создание полей для формы ввода. Вся форма однотипная, но сохраняемых данных много. К чему я клоню. Есть GroupBox с формой внутри:





На форме это должно выглядеть так (сделал в paint):



Собственно, вопрос вот в чем. Неужели каждый из компонентов в GroupBox нужно прописывать отдельно кодом, указывая выравнивание, шрифты и координаты? Или может есть какой-то метод, который "по клику" позволит скопировать группу компонентов и поставить в нужные координаты в нужного родителя?

Подумал, что может Assign сработает:

Код:

1 2 3 4 5 6 7 8 9 10

procedure Tfrm.btn_addUrlClick(Sender: TObject); var   newGroupBox: TGroupBox; begin  newGroupBox := TGroupBox.Create(frm);  newGroupBox.Assign(gbox_example_item);  newGroupBox.Parent := sb_main; end;   end.

но выдает ошибку, что

Cannot assign a TGroupBox to a TGroupBox

Подскажите, как лучше сделать?

[lmikle]

Да, просто сделать Assign не получится. Для начала, даже если бы это сработало бы, то скопировались бы свойства только самого GroupBox, а компоненты в нем все равно бы не создались. Т.е. придется писать код самому. Как вариант - сделать фрейм и создавать нужное кол-во таких фреймов.
Второй вариант - написать код для клонирования.
В твоем случае код будет выглядеть так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

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)     GroupBox1: TGroupBox;     Label1: TLabel;     Edit1: TEdit;     btClone: TButton;     GroupBox2: TGroupBox;     RadioButton1: TRadioButton;     RadioButton2: TRadioButton;     Edit2: TEdit;     GroupBox3: TGroupBox;     RadioButton3: TRadioButton;     RadioButton4: TRadioButton;     Edit3: TEdit;     procedure btCloneClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     function CloneGroupBox(ASource : TGroupBox; ASourceParent : Boolean; AParent : TGroupBox; X, Y : Integer) : TGroupBox; overload;     function CloneGroupBox(ASource : TGroupBox; ASourceParent : Boolean; AParent : TGroupBox) : TGroupBox; overload;   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   function TForm1.CloneGroupBox(ASource : TGroupBox; ASourceParent : Boolean; AParent : TGroupBox; X, Y : Integer) : TGroupBox; var   I : Integer;   NLabel : TLabel;   NEdit : TEdit;   NRButton : TRadioButton; begin   Result := TGroupBox.Create(Self);   Result.Left := X;   Result.Top := Y;   Result.Width := ASource.Width;   Result.Height := ASource.Height;     For I := 0 To ASource.ControlCount-1 Do     Begin       if ASource.Controls[i] Is TLabel then       begin         NLabel := TLabel.Create(Self);         NLabel.Left := (ASource.Controls[i] As TLabel).Left;         NLabel.Top := (ASource.Controls[i] As TLabel).Top;         NLabel.Width := (ASource.Controls[i] As TLabel).Width;         NLabel.Caption := (ASource.Controls[i] As TLabel).Caption;         NLabel.Parent := Result;       end;       if ASource.Controls[i] Is TEdit then       begin         NEdit := TEdit.Create(Self);         NEdit.Left := (ASource.Controls[i] As TEdit).Left;         NEdit.Top := (ASource.Controls[i] As TEdit).Top;         NEdit.Width := (ASource.Controls[i] As TEdit).Width;         NEdit.Text := (ASource.Controls[i] As TEdit).Text;         NEdit.Parent := Result;       end;       if ASource.Controls[i] Is TRadioButton then       begin         NRButton := TRadioButton.Create(Self);         NRButton.Left := (ASource.Controls[i] As TRadioButton).Left;         NRButton.Top := (ASource.Controls[i] As TRadioButton).Top;         NRButton.Width := (ASource.Controls[i] As TRadioButton).Width;         NRButton.Caption := (ASource.Controls[i] As TRadioButton).Caption;         NRButton.Parent := Result;       end;       if ASource.Controls[i] Is TGroupBox then       begin         CloneGroupBox(ASource.Controls[i] As TGroupBox,False,Result);       end;     End;     if ASourceParent     then Result.Parent := ASource.Parent     else Result.Parent := AParent; end;   function TForm1.CloneGroupBox(ASource : TGroupBox; ASourceParent : Boolean; AParent : TGroupBox) : TGroupBox; begin   Result := CloneGroupBox(ASource,ASourceParent,AParent,ASource.Left,ASource.Top); end;   procedure TForm1.btCloneClick(Sender: TObject); begin   CloneGroupBox(GroupBox1,True,Nil,GroupBox1.Left,GroupBox1.Top + GroupBox1.Height + 8); end;   end.

Написал код только для копирования основных свойств. Если надо, то добавишь копирование нужных, в т.ч. и назначения событий (для этого события придется переписать так, что бы они находили соотв. копоненты сами, а не адресовались напрямую, т.к. при клонировании создаются соответствующие новые контролы).
Ну и когда будешь собирать данные с контролов, то тоже придется идти через Components[i].

[VolodinAS]

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

Да, просто сделать Assign не получится. Для начала, даже если бы это сработало бы, то скопировались бы свойства только самого GroupBox, а компоненты в нем все равно бы не создались. Т.е. придется писать код самому. Как вариант - сделать фрейм и создавать нужное кол-во таких фреймов.
Второй вариант - написать код для клонирования.
В твоем случае код будет выглядеть так:

Код:

Написал код только для копирования основных свойств. Если надо, то добавишь копирование нужных, в т.ч. и назначения событий (для этого события придется переписать так, что бы они находили соотв. копоненты сами, а не адресовались напрямую, т.к. при клонировании создаются соответствующие новые контролы).
Ну и когда будешь собирать данные с контролов, то тоже придется идти через Components[i].

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

[lmikle]

В ран-тайм - нет. Только через фреймы.