componentes en tiempo de ejecución

[[Lepe]]

Reholas,

Para crear los paneles:

Código Delphi [-]
procedure Tform1.button1Click(...)
begin
  p[i] := Tpanel.Create(nil)
end;

Estoy diciendo que nadie se encargue de liberar los paneles, ya que nosotros lo haremos manualmente.

Y al cerrar la ventana:

Código Delphi [-]
for i:= low(p) to high(p) do
  freeandnil(p[i])

caFree, es el valor del parámetro CloseAction del evento OnClose de la ventana.

Cuando una ventana se cierra, bien por código o bien pulsando la X de la ventana, se llama a ese evento, despues se comprueba si hay código en el evento OnCloseQuery, y por ultimo se ejecuta el código existente en el evento OnClose.

Modificando el parámetro CloseAction, puedes modificar el comportamiento de la ventana al cerrarse. Los valores posibles son:

caMinimize = al pulsar sobre la X, la ventana, se minimiza.
caHide     = se oculta
cafree     = se libera la ventana de memoria, y todos los recursos asociados
caNone     = la X no hace nada

Por supuesto, si usas caFree, para volver a ver la pantalla tendrás que usar algo como:

Código Delphi [-]
Application.CreateForm(Tform1, Form1);

[Maga84]

cuando cierro el formulario me da un error en otro evento en el que trabajo con componentes de estos que he liberado...voy a repasar todo otra vez
q desastre soy...

[[Lepe]]

Si trabajas de esta forma, siempre que vayas a acceder a p[i] deberías preguntar si es distinto de nil, para que no traspases un puntero nulo.

Código Delphi [-]
if assigned(p[i]) then
 // accedo con total alegria a p[i]

Perdona por no haberlo comentado en el post anterior

Un saludo

[Maga84]

ya por fin!!!gracias lepe