Crear un Objeto dentro de un Panel

[dec]

Hola,

Empezado por coso

Un par de apuntes sobre el codigo de caro. Se deberia liberar slCampos antes de salir de la funcion, y de la misma manera (por ejemplo en el formdestroy o al crear nuevos botones) se han de liberar manualmente los objetos creados en ella. Saludos.

"slCampos" debería liberarse, o así suele hacerse, aunque, si no me equivoco, al tratarse de una variable "local", esta se liberará de todas todas al finalizar la función. Pero, sí, suele liberarse, y hacerse un bloque "try ... end", puesto que, en caso de excepción, por ejemplo, ya no queda tan claro qué pasaría con la variable... al menos a mí no me queda tan claro.

En cuanto a los botones creados en tiempo de ejecución, a estos se les está asignando un "dueño":

Código Delphi [-]
Boton := TButton.Create(Self);

"Self" es el dueño del recién creado componente, y será "Self" quien, cuando se destruya, se encargue de liberar los componentes cuyo "dueño" sea el propio "Self". Al menos esto es lo "natural", porque, otra vez si no me equivoco, nada te impediría liberar por tu cuenta los botones: pero el propio "Self" lo hará si tú no lo haces antes por otro lado.

[[coso]]

Gracias dec, creia q todo lo que se crea en tiempo de ejecucion mediante el create se habia de liberar manualmente tendre que repasar un poquillo el tema. Saludos

PD: una duda q tenia tambien al respecto del codigo de Caro. No deberia darse una variable Button para cada uno de los componentes creados? he probado su codigo y funciona perfectamente. Yo lo hubiera escrito con un array.

[dec]

Hola,

Empezado por coso

una duda q tenia tambien al respecto del codigo de Caro. No deberia darse una variable Button para cada uno de los componentes creados? he probado su codigo y funciona perfectamente. Yo lo hubiera escrito con un array.

No es necesario. Incluso podríamos no utilizar variable alguna:

Código Delphi [-]
 for i:=0 to slCampos.Count-1 do begin
   with TButton.Create(Self) do begin
     Parent := ScrollBox1;//Asignamos como padre al ScrollBox
     Left := aLeft;
     Top := aTop;
     Width := 50;
     Name := slCampos[i];
     Caption := slCampos[i];
     inc(aTop,Height+10);
   end;
 end;

Aunque igual podríamos tener algún problema alguna vez, porque Delphi se hiciera un lío (con razón) entre las propiedades de los botones y las del formulario, por ejemplo. Usar variables también puede aclarar algo el código, pero, vamos, que, en un momento dado, es posible hacer esto sin usar variable alguna.

[[coso]]

mmm ok gracias dec

[*Caro*]

Holitas, por lo que se, cada vez que se crea un objeto es necesario liberarlo, porque sino los objetos que no se liberan, solo serán liberados cuando termine el programa. Pero cuando creamos un componente se le da un propietario/dueño (Parent) el cual puede ser un formulario o como en este caso el ScrollBox donde dicho propietario es el encargado de liberar todos los componentes que contiene, así es como lo maneja Delphi. Todo esto es lo mismo que a explicado Dec .

Empezado por dec

"slCampos" ......., si no me equivoco, al tratarse de una variable "local", esta se liberará de todas todas al finalizar la función.

Esto no lo sabía, yo lo libero una vez que lo termino de usar.

Empezado por dec

Código Delphi [-]
for i:=0 to slCampos.Count-1 do begin
with TButton.Create(Self) do begin
Parent := ScrollBox1;//Asignamos como padre al ScrollBox
Left := aLeft;
Top := aTop;
Width := 50;
Name := slCampos[i];
Caption := slCampos[i];
inc(aTop,Height+10);
end;
end;



Aunque igual podríamos tener algún problema alguna vez, porque Delphi se hiciera un lío (con razón) entre las propiedades de los botones y las del formulario, por ejemplo. Usar variables también puede aclarar algo el código, pero, vamos, que, en un momento dado, es posible hacer esto sin usar variable alguna.

Creo que no habría problema si lo creamos de esa forma porque con el With le estamos indicando que esas propiedades le pertenecen al button que estamos creando.

Saluditos