Создание и удаление label, checkbox, combobox

← →
Zirus (2005-12-10 06:07) [0]

Написал подпрограмму, которая создаёт в GroupBox всякие другие компоненты: label, checkbox, combobox. Поле Name нумеруется Lab0, Lab1, ... Порядок следования компонентов - случайный: может чередоваться, например label и checkbox. Name при добавлении любого компонента инкрементируется:

label.name:="Lab0"
checkbox.name:="Lab1"
label.name:="Lab2"

Так как подпрограмма должна вызываться много раз, каждый раз по разному создавая компоненты, то встаёт вопрос про destroy ВСЕХ созданных компонентов, расположенных на GroupBox. Как это можно организовать? Может, можно удалить всех потомков в GroupBox сразу?

← →
Джо © (2005-12-10 06:27) [1]

var I: Integer; begin for I := GroupBox1.ControlCount-1 downto 0 do GroupBox1.Controls[I].Free; end;

← →
Джо © (2005-12-10 06:28) [2]

П.С. Не употребляй терминов, значения которых не знаешь: поле, потомок... :)

← →
Zirus (2005-12-10 06:43) [3]

Большое спасибо!

p.s. (п.с.) я думал, что знаю. главное, меня поняли :-)

Еще можно Owner"а назначить, если удаление требуется при разрушении групбокса - передается как параметр в конструктор объекта.

Создание и удаление label, checkbox, combobox Найти похожие ветки