Ver Mensaje Individual
  #17  
Antiguo 18-10-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita