Ayuda PorFavor¡¡¡¡
 

Veran tengo una aplicación en la cual creo en diseño un conjunto de imagenes las cuales las leo de un campo Image en SQL, lo hace bien y me crea tantos images como fotografias tenga guardadas en determinada tabla el problema que tengo es que necesito crear en cada una de las imagenes un evento click el cual me pase al darle click a cualquiera de esas imagenes me las muestre en otro Image Grande que tengo en la forma

Con esto creo las imagenes

Código Delphi [-]
 with image do
        begin
        image.Picture.Assign(Jpg);
        image.Parent := panel11;
        image.Top := 0;
        image.left := izquierda;
        width := 100;
        height := 100;
        stretch := true;
        image.OnClick := pasImagen;
 end;

y esto tiene el evento pasImagen con el cual quiero que cuando se le de un click a la imagen que yo creo en el procedimiento de arriba me lo pase a imaVisor

Código Delphi [-]
procedure TConPropiedadF.pasImagen(Sender: TObject);
begin
  imaVisor.Picture.Assign(image.picture);
end;

Trabajo con Delphi 5.0 si me pueden ayudar se los agradeceria mucho

Buenas!

El parámetro sender que tienes en el evento es precisamente el objeto que lo ha llamado.

Por lo tanto si le haces un cast a TImage ya puedes utilizarlo:

Código Delphi [-]
imaVisor.Picture.Assign(Sender as TImage)

Edu

Muchas Gracias
 

Por ayudarme pero sabes con lo que me dijiste me da el siguiente error:
"Cannot assign a TImage to a Picture", la verdad ahorita estoy en un lapsus tremendo y no se que hacer ayudenme si

Muchas Gracias!!!!!

Y con esto otro, ¿que tal?

Código Delphi [-]
imaVisor.Picture.Assign((Sender as TImage).Picture)

Gracias!!!!
 

Por contestarme a tal brevedad pero no me funciona me dice que no son incompatibles

Incompatible types: TComponent and TPicture

Gracias por sus sugerencias se los agradesco

Perdon!!!!!
 

Perdon por mi descuido pero he estado dias con este error y estaba poniendo el codigo donde no debia ir, muchas gracias a epiguedf y a seoane por sus sugerencias son lo maximo se los agradesco