Ayuda con TPanel

[ecfisa]

Empezado por FideRosado

cuando pense en eliminar el panel dentro de el area, pence en hacerlo de muchas formas, pero me he despertado de buena gana y mente , aqui puedes mandar a buscar el panel por su nombre y luego eliminarlo, asi no hay que hacer un for...

Hola.

En realidad si haces un simple cambio en la creación de los TPanel y TCheckBox cambiando su owner (propietario),

Código Delphi [-]
  Pnl := TPanel.Create(Self); // (donde Self es Form1)
  ...
  with TCheckBox.Create(Self) do

te sería mucho mas simple eliminar un panel por su nombre.

Código Delphi [-]
...
var
  C: TComponent;
begin
  C := FindComponent('PnlUser1');
  if Assigned(C) then 
    C.Free;
end;

Saludos

[ecfisa]

Hola.

Recordé que sólo se deben borrar aquellos paneles cuyos CheckBox estén chequeados...

Dado que en la creación, a paneles y CheckBoxes les das nombres que sólo difieren de otros sólo por su terminación (PnlUser1, PnlUser2,...) (CheckMail1, CheckMail2, ...). Además contenedor y contenido se corresponden en ese último número y que cada panel tiene contiene un CheckBox, se puede efectuar la eliminación mediante un método enviando como argumento sólo el número:

Código Delphi [-]
procedure TForm1.FreePanel(const Nro: Integer);
var
  C1: TComponent;
begin
  C1 := FindComponent('PnlUser' + IntToStr(Nro));
  if Assigned(C1) then
  begin
    if TCheckBox(FindComponent('CheckMail' + IntToStr(Nro))).Checked then
      C1.Free;
  end;
end;

Saludos