en la lista agrego TGroupBoxes por ejemplo
Código:
lista.add(Groupbox1);
lista.add(Groupbox2);
lista.add(DBGrid1);
lista.add(DBGrid2);
cuando recorro la lista
Código:
for i := 0 to self.list.Count -1 do
hago el if:
Código:
if self.list[i].InheritsFrom(TControl) then
y estoy seguro que TGroupBox deriba de TControl y que estoy recorriendo bien porque si hago un
Código:
showmessage(TControl(self.list[i]).Name);
me dice "GroupBox1"
gracias por tu ayuda ... sigo probando sin exito
