Ver Mensaje Individual
  #1  
Antiguo 13-11-2005
ilichhernandez ilichhernandez is offline
Miembro
 
Registrado: oct 2005
Posts: 277
Reputación: 19
ilichhernandez Va por buen camino
Question No puedo matar los componentes

Despues de 10 horas de trabajo en dia domingo.....uffffff, avanzo pero con algunas dudas..... espero que sea la ultima del dia.....
Resulta que creo varios componentes tlabel en tiempo de ejecucion , pero no puedo eliminarlos despues, he revisado 5 o 6 hilos con temas similares ( asi que disculpad las molestias) pero que no me queda claro......(tal vez sea el sueño)..... pero bueno hay que seguir...... gracias por el tiempo que dedican amigos......

Código Delphi [-]
procedure Tform_comparacion.cxButton2Click(Sender: TObject);
Var
n:Integer;
begin
  for n:=0 to Form_comparacion.ComponentCount -1  do
  begin

    if ((Components[n] is Tlabel) and ((Components[n].tag = 5)or(Components[n].Tag = 4))) then
    Tlabel(Components[n]).Free;
  end;   
form_comparacion.Close;
end;

ilich hernandez.
__________________
[Lo que a veces es tan facil, a veces parece imposible]
Responder Con Cita