Crear un Objeto dentro de un Panel

[[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