Hola!
Este procedimiento funciona sin problemas en su propio form el cual consta de un groupbox y seis checkbox:
Código Delphi
[-]
for i := 0 to 5 do
if (GroupBox1.Controls[i] as TCheckBox).Checked then
borrando[i] := i + 1;
pero este otro en su form no funciona:
Código Delphi
[-]
for i := 0 to Panel1.ControlCount - 1 do
if (Panel1.Controls[i] as TCheckBox).Checked then
agrupa[i] := i + 1;
este ultimo es un groupbox con tres panels y cada panel con 6 checkbox, el mensaje de "Horror":
---------------------------
Debugger Exception Notification
---------------------------
Project TCP_WinTool.exe raised exception class EInvalidCast with message 'Invalid class typecast'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
a que se debera el "horror"? ya probe en vez de Panel1 el groupbox y el mensaje es el mismo.
Gracias por la ayuda que me puedan prestar