Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-04-2004
rafita rafita is offline
Miembro
 
Registrado: ago 2003
Ubicación: Cuenca- España.
Posts: 309
Poder: 21
rafita Va por buen camino
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;
pero Nombre es un String ¿cómo hago para que referencie un objeto?

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.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 22:42:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi