|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Дублирование/копирование объектов на форме
Здравствуйте.
Требуется динамическое создание полей для формы ввода. Вся форма однотипная, но сохраняемых данных много. К чему я клоню. Есть 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. Цитата:
Подскажите, как лучше сделать? |
#2
|
|||
|
|||
Да, просто сделать 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]. |
#3
|
|||
|
|||
Цитата:
То есть, в любом случае придётся указывать свойства каждого элемента для клонирования? Быстрых методов дублирования компонентов на форме нет?... |
#4
|
|||
|
|||
В ран-тайм - нет. Только через фреймы.
|