Дублирование/копирование объектов на форме

VolodinAS · #1 27.07.2022, 18:56

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

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

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

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

Код:

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 · #2 29.07.2022, 20:50

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

Код:

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 · #3 29.07.2022, 21:54

Цитата:

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

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

Код:

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].

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

lmikle · #4 29.07.2022, 22:39

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

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты