Есть окно с одним 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;
- результат пустой.