Ver Mensaje Individual
  #12  
Antiguo 17-10-2013
Avatar de FideRosado
FideRosado FideRosado is offline
Miembro
 
Registrado: jun 2010
Ubicación: Pinar del Rio Cuba
Posts: 146
Reputación: 14
FideRosado Va por buen camino
en caso de querer eliminarlo el panel

he probado algo parecido pero no me sale la verdad , será que se me esta escapando algo..mi mente y mi cuerpo esta cansado jejje, dormire un rato pero les pondre este cod que estoy provando , tirando piedras , como se dice

Código Delphi [-]
procedure TForm1.RzPanel15Click(Sender: TObject);
 var
  u,h:integer;
  n,m: string;
  var t:Tcomponent;
begin
  n :=  ActiveCheckBoxes(ScrollBox1);

if n <> '' then begin

    u:= CharCount(n,'|');
    for h:= 1 to u do begin
     m:= GetToken( n, '|' , h );
     // t.Name:= m;
      t := FindComponent(m);
          if  Assigned(t) then begin

             ShowMessage('se lozalizo el control ' + t.Name);
             //t.Free;

            end else begin

             ShowMessage('No se lozalizo el control ' + t.Name);

            end;
    end;
  end;
end;

acuerdence que yo aca envio una string con los nombres a los que voy a eliminar, separados por una barra vertival,, | ,
de esta forma se podra hacer diganme si hay variantes..

Última edición por FideRosado fecha: 17-10-2013 a las 09:25:03. Razón: actualizar el contenido
Responder Con Cita