Ver Mensaje Individual
  #2  
Antiguo 09-12-2017
Aszael Aszael is offline
Registrado
 
Registrado: nov 2017
Posts: 7
Reputación: 0
Aszael Va por buen camino
Bueno, gracias, ya lo conseguí con esto:
Código Delphi [-]
procedure liberar;
var i:integer;
begin
  for i:=Form1.ComponentCount-1 downto 0 do
    begin
      if (Form1.Components[i] is TImage)then
        Form1.Components[i].free;
    end;
end;

Y bueno, solo para seguir aprendiendo, tengo esto:
Código Delphi [-]
procedure dibujar;
begin
  imagen:=TImage.Create(Form1);  
  fondo:=TImage.Create(Form1);  
end;

Creo dos imágenes con distinto nombre, luego ejecuto el procedimiento liberar(); y me elimina las dos imágenes. ¿Qué parámetros debo usar para solo quitar todo lo relacionado a "imagen" y no tocar "fondo"?
Responder Con Cita