![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | 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. Цитата: 
	
 Подскажите, как лучше сделать?  |