FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Destrucción de componentes dinámicos
Muy buenas a todos.
Estaba haciendo pruebas con la creación dinámica de componentes y me surgen algunas dudas, sobre todo a la hora de eliminarlos de la memoria. He estado buscando en este foro y, aunque he encontrado algunas cosas, no me termino de aclararme. Básicamente veo dos posibilidades de crear los componenentes: Código:
// Ejemplo 1. var MiBoton : TButton; // <-- Definido a nivel de formulario procedure CrearBoton; // <-- Creación y asignación a la variable previamente definida begin MiBoton:=TButton.Create(Self); MiBoton.Parent:=Self; // utilizando With sería más cómodo MiBoton.Caption:='Este es mi botón'; MiBoton.Left:=25......... // Ejemplo 2. for ind:=1 to 50 do with TButton.Create(Self) do // <-- Creación sin asignarlo a ninguna variable begin Parent:=Self; Left:=PosX; Top:=PosY; Height:=36; Width:=140; Str(Ind:3,WInd); WInd:=StringReplace(WInd,' ','0',[rfReplaceAll]); Name:='Boton'+WInd; Caption:=Format('Botón nº %d',[Ind])+#13'segunda línea'; OnClick:=MostrarValor; // asignación del evento Según el Sr.Marco Cantú "El componente propietario (a menudo un formulario) se hace responsable de destruir todos los objetos que posee. En otras palabras, al liberar el formulario, éste libera todos sus componentes. Por ello, si se crea un componente y se le da un propietario, no hay que acordarse de destruirlo". Dudas: 1. ¿Al crearlos con (Self) el propietario es el formulario dónde se crean? 2. En el primer ejemplo de creación puedo hacer un MiBoton.Destroy ¿es correcto o es mejor un MiBoton.DestroyAndNil? 3. En el segundo ejemplo al no tenerlo asignado a una variable ¿cómo lo destruyo? He probado así: Código:
for i:=1 to 50 do begin Str(Ind:3,WInd); WInd:=StringReplace(WInd,' ','0',[rfReplaceAll]); Nombre:='Boton'+WInd; // Nombre es un String DestruirBoton(Nombre); end; procedure DestruirBoton(Sender : Tobject); begin with Sender AS TButton do Sender.Destroy; end; 4. He visto el procedimiento DestroyComponents ¿con esto me evitaría destruirlos uno por uno? En mis pruebas, creo todos los componentes en OnCreate del formulario y con DestroyComponents en el OnClose, y no da error por muchas veces que lo ejecute. 5. ¿conoceís a alguién con más dudas o soy el peor? Un saludo a tod@s.
__________________
Rafita. |
|
|
|