|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как скопировать все контролы с одного tabsheet на все остальные?
Есть окно с одним tabsheet. На этот tabsheet программист ручками кидает произвольное число контролов (поля ввода чисел, строк, разные "галочки" и т.д.) со своими свойствами (в частности, эвентом OnChange, ссылающимся на определенные процедуры обработки).
Нужно программно сгенерировать определенное число tabsheets, куда программно скопировать контролы с первого tabsheet (визуально выглядящие и находящиеся на тех же местах, как и на первом tabsheet). Смысл в том, чтобы вводить через разные однотипные контролы в разных однотипных tabsheets данные в массивы параметров. Как это можно сделать? Попробовал сделать так: Код:
for i := 0 to TabSheet16.ComponentCount - 1 do begin contr := TCustomControl.Create(self); contr.Assign(TabSheet16.Components[i] as TCustomControl); contr.Parent := TabSheet17; end; Последний раз редактировалось Martin, 10.02.2017 в 19:06. |