Cita:
|
cuando seleciono un reg nuevo levanto el path y hago el loadimage(), o se va pisando dentro del Image una con otra?
|
Hola Luis.
Eso depende de como realices la creación.
Por ejemplo, de este modo se crea una instancia de
TImage, se van cargando las imágenes sobre la mísma y por último se libera:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
with TImage.Create(nil) do
try
Stretch:= True;
Parent:= Self;
Picture.LoadFromFile('Imagen1.jpg');
Application.ProcessMessages;
Sleep(1000);
Picture.LoadFromFile('Imagen2.jpg');
Application.ProcessMessages;
Sleep(1000);
Picture.LoadFromFile('Imagen3.jpg');
Application.ProcessMessages;
Sleep(1000);
finally
Free;
end;
end;
Si pones un componente
TImage en tiempo de diseño se comporta de forma similar.
Pero de este, se crea y libera una instancia de
TImage por cada imágen:
Código Delphi
[-]
procedure CargarImagen(Frm: TForm; Nombre: string);
begin
with TImage.Create(nil) do
try
Stretch:= True;
Parent:= Frm;
Picture.LoadFromFile(Nombre);
Application.ProcessMessages;
Sleep(1000);
finally
Free
end
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
CargarImagen(Form1,'Imagen1.jpg');
CargarImagen(Form1,'Imagen2.jpg');
CargarImagen(Form1,'Imagen3.jpg');
end;
Saludos.