Así los creo:
delphi
cb2 := TIWCheckBox.create(nil); cb2.name := 'IWCheckBox'+IntToStr(i); cb2.FriendlyName := 'IWCheckBox'+IntToStr(i); cb2.Caption :='Cadena_'+IntToStr(i); cb2.Tag := i; cb2.Visible := True; cb2.Checked := True; cb2.Parent := IWRegion8; cb2.Align := alTop;
Y así trato de recuperarlos:
delphi
For x:= 0 to IWRegion8.ComponentCount - 1 do Begin If (IWRegion8.FindComponent('IWCheckBox'+IntToStr(x)) <> Nil) then Begin cb := TIWCheckBox(Components[x]); if cb.Checked then cadena := cadena+IntToStr(cb.Tag)+','; End; End;
He intentado agregar el Self a IWRegion8 pero tampoco lo encuentra. ¿alguna sugerencia o qué es lo que me está faltando para que pueda encontrar el componente? El objeto IWRegion8 está anidado de la siguiente forma: IWForma-IWRegion1-IWRegion5-IWRegion8
De antemano muchas gracias.