Ver Mensaje Individual
  #1  
Antiguo 25-11-2013
ociocabure ociocabure is offline
Registrado
 
Registrado: ago 2006
Posts: 5
Reputación: 0
ociocabure Va por buen camino
Problemas al crear un TRadioGroup en un componente nuevo

Hola al que me esta leyendo. Estoy creando un componente que desciende de un TPanel y el cual tiene dentro del mismo varios objetos (TEdit,TLabel,TGroupBox, TEtc).
El problema que tengo es que cuando creo y le quiero asignar al TGroupBox(Name=RGNumeros) los items me sale un error: "" Project USandoMyPanel.exe raised exception class EInvalidOperation with mesagge 'Control' has no parent window"" he buscado que puedo estar haciendo mal pero no he encontrado nada. Supongo que no tiene un lugar para dibujar los botones. He realizado un ejemplo en un form con el mismo codigo funciona. Que es lo que pasa.
Aca va parte del codigo


Código Delphi [-]
 /// /// Creo Radio GRoup con numeros   
RGNumeros:=TRadioGroup.Create(Self);   // el self supongo que es el TPanel.   
RGNumeros.parent:=Self;   
RGNumeros.Visible:=True;  
 RGNumeros.Caption:='Cantidad de Numeros';  
 RGNumeros.Top:=138;   
RGNumeros.Width:=265;   
RGNumeros.Height:=111;   
RGNumeros.Left:=16;   
RGNumeros.Items.Clear;  // aca vacio el items por si las moscas.   
RGNumeros.Columns:=8;   
RGNumeros.Show;  // puse esto poque pense que no se veia.     
for RGItems := 1 to 5 do RGNumeros.Items.Add(IntToStr(RGItems));  // <<== aca muestra el error de compilacion. 
RGItems: integer  RGNumeros.ItemIndex:=FCompleta-1;  // FCompleta:integer;   
RGNumeros.OnClick:=RGOnChangeNumers;  // reasigno el evento on click.     
/// 
///
Saludos y gracias de antemano por las posibles respuestas.

Última edición por ociocabure fecha: 25-11-2013 a las 17:36:48. Razón: esta mal confeccionado el codigo no se que me paso cuando puse vista previa se veia lindo luego no.
Responder Con Cita