Free a un componente dentro de otro

[r_e_g_2007]

AHola,
Quisiera hacer una pregunta,

Si yo creo un componente A en tiempo de run, y le digo que su owner es otro componente B , si yo le doy free a B el componente A se libera automaticamente, es decir no hay que dar free a A.

?Cuando un componente se libera el libera automaticamente todos los que tiene dentro?

Saludos a todos y muchas gracias

[[escafandra]]

Cada componente es liberado por su Owner si lo tiene, en caso contrario debemos liberarlo nosotros.

Saludos.

[ecfisa]

Hola.

Haciendo un resumen:
Quién tiene la responsabilidad de liberar un componente es su propietario. (Owner). La propiedad Owner es añadida en la clase TComponent, se asigna en la creación mediante el método Create, es inalterable y dura toda la existencia del componente creado.

Código Delphi [-]
  Button:= TButton.Create(Application); // propietario: Application
  Button:= TButton.Create(Panel1) // propietario: Panel1
  Button:= TButton.Create(nil); // sin propietario, liberarlo es responsabilidad nuestra

Entonces respondiendo a tu pregunta: Cuando un componente A es liberado, es el responsable de liberar a todos aquellos componentes cuyo Owner es A y lo hace mediante el método Destructor.

Las propiedades Components y ComponentCount del propietario, mantienen una lista de los componentes y el número de ellos respectivamente.

Saludos.

Edito: Upss, estaba tan concentrado en que saliera bién la redacción que no vi tu mensaje amigo . Disculpas.
(es que he visto a Al rondando por aqui y no quiero un tirón de orejas... )

[[Al González]]

Me suscribo a las respuestas dadas por escafandra y ecfisa.

Sólo añadir que un componente sí puede cambiar de dueño, mediante los métodos RemoveComponent e InsertComponent.

Código Delphi [-]
Var
  L :TLabel;
Begin
  L := Form1.Label1;

  // Hacemos que Form2 sea el nuevo dueño del objeto etiqueta L
  Form1.RemoveComponent (L);
  Form2.InsertComponent (L);

  { Por ser un componente visual también es necesario cambiar la propiedad
    Parent, si queremos que L deje de verse dentro de Form1 y aparezca
    ahora dentro de Form2 }
  L.Parent := Form2;

Saludos orejudos.

Al González.

[ecfisa]

Empezado por Al González

Sólo añadir que un componente sí puede cambiar de dueño, mediante los métodos RemoveComponent e InsertComponent.

No se me había ocurrido darles ese uso ni me había imaginado que se podía lograr así... Eso es lo bueno de esto, siempre estamos aprendiendo algo nuevo

Un agradecido saludo

[thelibmx]

Empezado por Al González

Me suscribo a las respuestas dadas por escafandra y ecfisa.

Sólo añadir que un componente sí puede cambiar de dueño, mediante los métodos RemoveComponent e InsertComponent.

Código Delphi [-]
Var
  L :TLabel;
Begin
  L := Form1.Label1;

  // Hacemos que Form2 sea el nuevo dueño del objeto etiqueta L
  Form1.RemoveComponent (L);
  Form2.InsertComponent (L);

  { Por ser un componente visual también es necesario cambiar la propiedad
    Parent, si queremos que L deje de verse dentro de Form1 y aparezca
    ahora dentro de Form2 }
  L.Parent := Form2;

Saludos orejudos.

Al González.

Hola AL, yo necesito hacer algo parecido a esto que indicas, pero no se si me funcione con lo que quiero hacer, pues yo tengo un ScrollBox1 en el cual yo creo dentro de él, componentes como label y edit en modo ejecucion hablo aprox de 120 o mas,que vienen de una tabla y quiero que por ejemplo con un boton se borren esos componentes edits y labels en cierto momento, hay manera de que pudiera darle un reset al scrollbox1 algo mas o menos como lo que pones, para que desapareciera todo lo que contiene dentro, o tendría que hacer algún procedimiento para borrar de uno por uno cada componente creado dentro del scrollbox1?.. por ejemplo que pudiera hacer un ...

Código Delphi [-]

    scrollbox1.RemoveComponent(all);

Soy nuevo en esto de crear y liberar componentes, así que disculpa si de alguna manera mi comentario suena un poco bobo, he visto que hay procedimientos que borran componentes edits y labels de uno por uno, pero trato de hacer lo que menos código me implique, también había pensado en crear y borrar todo el scrollbox, pero quería saber si hay algún punto intermedio para borrar los edits y labels, sin crear todo de nuevo.. espero me haya podido explicar, y espero que este relacionado el tema con el hilo gracias por los comentarios que me puedas dar

[ecfisa]

y quiero que por ejemplo con un boton se borren esos componentes edits y labels en cierto momento

Hola thelibmx.

Tendrías que hacer:

Código Delphi [-]
procedure TForm1.btClearScrollBoxClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= ScrollBox1.ControlCount-1 downto 0 do
    ScrollBox1.Controls[i].Free;
end;

O también podrías:

Código Delphi [-]
  for i:= SCrollBox1.ControlCount-1 downto 0 do
    ScrollBox1.RemoveControl(ScrollBox1.Controls[i]);

Saludos.

[thelibmx]

Muchas gracias ecfisa, no sabia como hacer para contar y borrar todos los componentes en el scrollbox, de las dos formas me ha funcionado muy bien
escojo la segunda opción creo que es la mas adecuada aunque el resultado es el mismo. Muchas gracias..

Código Delphi [-]
 for i:= SCrollBox1.ControlCount-1 downto 0 do
    ScrollBox1.RemoveControl(ScrollBox1.Controls[i]);

[thelibmx]

solo una pregunta mas como puedo acceder a los datos que contiene un tdbedit que creé en tiempo de ejecucion y mandarlo a un edit en otro form, el tdbedit se encuentra dentro de un scrollbox y lo he llamado folio pero no logro obtener sus datos,esto lo hago antes de borrar todos los componentes, el codigo que puse es este

Código Delphi [-]

procedure TFrmCap.BitBtn1Click(Sender: TObject);
var
folioc:string;
begin

FormAg.editfolio.Text:= TdbEdit(FindComponent('folio')).Text;

end;

me manda un error de Acces violation at adress, me imagino que no lo encuentra, dentro del dbedit que tengo si hay datos y se encuentra conectado a un datasource, incluso puedo ver los datos que contiene, en tiempo de ejecución,y asigne un evento en el cual le doy click y me muestra en nombre del tdbedit que es folio, no se que me falte o tal ves no sea la manera correcta de obtener los datos..puedes darme una pista?

[ecfisa]

Hola thelibmx.

Suponiendo que le hayas dado un nombre en la creación, ejemplo:

Código Delphi [-]
...
implementation

uses Unit2;

var
  DE: TDBEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DE:= TDBEdit.Create(nil);
  DE.Name:= 'MiDBEdit'; // <- nombre
  DE.DataSource:= DataSource1;
  DE.DataField:= 'Name';
  DE.Parent:= SCrollBox1;
end;

Basta con hacer:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form2.Edit1.Text:= (ScrollBox1.FindChildControl('MiDBEdit') as TDBEdit).Text;
end;

Saludos.

[thelibmx]

Gracias por responder ecfisa,me funciono bien, ya pude ver los datos con ese codigo