carga de imagenes en timage

[jvalles]

hola!!

tengo un problemilla que no se como hacer:

- un formulario con 5 TImage
- 4 de ellos los utilizo como vista previa y cargo imagenes JPG asi:

OleGraphic := TOleGraphic.Create;
fs		 := TFileStream.Create('C:\tempmls\' + nomfoto, fmOpenRead or fmSharedenyNone);
OleGraphic.LoadFromStream(fs);
Image1.Picture.Assign(OleGraphic); 
fs.Free;
OleGraphic.Free

lo que no se hacer es:

- cuando hago click en el cualquiera de los 4 Timage que se muestre la imagen de ese TImage en el 5º Timage (vista normal)

Gracias y saludos!!!

[dec]

Hola,

A ver si esto te da alguna idea:

Código Delphi [-]
// Se presuponen tres "TImage" en un formulario
// cuyos nombres sean "Image1", "Image2" e "Image3".
//
// Se presuponen también sendos archivos de imagen
// en formato JPG situados en "C:\archivo1.jpg" y
// "C:\archivo2.jpg".
//
// Los componentes "Image1" e "Image2" han de com-
// partir el método para su evento "OnClick".
// Véase más abajo el método en cuestión.

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Cargamos una imagen en "Image1": puede
  // utilizarse el método "LoadFromFile" di-
  // rectamente: si se trata de imágenes en
  // formato JPG Delphi añadirá (o habrá que
  // añadir, la unidad "Jpeg" en la cláusula
  // interfaz de esta unidad.
  //
  // * Cargamos también una imagen en "Image2"
  //
  Image1.Picture.LoadFromFile('C:\archivo1.jpg');
  Image2.Picture.LoadFromFile('C:\archivo2.jpg');
end;

// Evento Click del componente "Image1": este
// mismo método lo utilizamos en "Image2".
//
// El objetivo es sencillo, aparentemente.
// Cuando se haga clic en algún componente
// "TImage" de los que compartan este méto-
// do, comprobaremos si, efectivamente, el
// objeto emisor es de tipo "TImage".
//
// Si esto es así, asignamos la imagen que
// se encuentre en el objeto emisor al com-
// ponente "Image3", en este caso.
//
procedure TForm1.Image1Click(Sender: TObject);
begin
  if (Sender is TImage) then // ¿Es un "TImage"?
    // Entonces asignemos su imagen a "Image3"
    Image3.Picture.Assign(TImage(Sender).Picture);
end;

[jvalles]

gracias era lo que estaba intentando hacer pero no daba con el codigo.

gracias!!!!