Ver Mensaje Individual
  #3  
Antiguo 08-09-2004
Avatar de Odnanref
Odnanref Odnanref is offline
Miembro
 
Registrado: jul 2003
Ubicación: Aguascalientes, Ags. México
Posts: 11
Reputación: 0
Odnanref Va por buen camino
Espero que sea lo que buscas

Hola

Mira si dices que tienes imagenes dentro de una misma carpeta podrias intentar ponerles un nombre generico a todas y solamente agregarles un numero para hacerlas diferentes entre si ejem:

Si tienes dos imagenes que se llaman gato.bmp y perro.bmp puedes ponerles image1.bmp y image2.bmp respectivamente.

Teniendo un nombre generico es mas facil hacer el cambio de imagen.
Supongamos que vas a utilizar dos botones para ir adelante y atras.

var
ind:integer; {esta variable te servira como indicador para saber que imagen estas cargando}


procedure TForm1.adelanteClick(Sender: TObject);
begin
ind:=ind+1;
image1.picture.loadfromfile('C:\Mis documentos\Mis imagenes\imagen'+inttostr(ind)+'.bmp');
end;

procedure TForm1.atrasClick(Sender: TObject);
begin
ind:=ind-1;
image1.picture.loadfromfile('C:\Mis documentos\Mis imagenes\imagen'+inttostr(ind)+'.bmp');
end;

Si te das cuenta utilizo una variable para cambiar el nombre de la imagen, al sumar o restar el valor de la misma, esa manera tu despliegas todas la imagenes que tienes en la carpeta, con el nombre generico "imagen".

Solo te faltaría delimitar el incremento para que no mandes llamar imagenes que no existen.

Espero que te sirva

Saludos desde aguascalientes México
__________________
Tec. Fernando M. Flores M.
Aguascalientes Ags. México
Email: odnanrefleugim@hotmail.com,
fernandomiguelf02@yahoo.com.mx
Responder Con Cita