Otro problemilla...

[craven]

Hola otra vez... El problemilla que tengo ahora es el siguiente (pense que era sencillo, pero se complicó la cosa un poco). Vamos a ver, suponagmos que en un formulario tengo un botón y cada vez que lo pulso se dibuja en el mismo formulario una imagen que ha de responder a eventos del ratón... ¿Cómo lo hago? Un saludo.

[andres1569]

Hola:

Supongo que lo que quieres es que los objetos (imágenes o cuadraditos) que crees respondan a los mismos eventos que los que ya tienes por diseño. Basta con que le asignes los procedimientos que tienes definidos a cada evento, por código:

procedure Form1.Imagen1OnChange (Sender: TObject);
begin
...
end;

procedure Form1.NuevaImagen;
var
  Im1 : TImage;  // por ejemplo
begin
  Im1 := TImage.Create;
  Im1.OnChange := Imagen1OnChange;
  ...
end;

¿Te referías a esto?

Un saludo

[craven]

Hola. Ante todo, gracias por tu ayuda. Lo que me has contado, es una parte de lo que preguntaba, muchas gracias. Pero lo que quisiera saber es, si creo un TImage dinámicamente, ¿cómo lo dibujo en el formulario? Es decir, si hago:

imagen := TImage.Create (Form1) ;
imagen.picture.loadfromfile ('....') ;

esto no hace que en el formulario Form1 se muestre la imagen, y yo quiero ver esta imagen en el. Gracias de antemano y un saludo.

[andres1569]

Hola:

Después de crearla, añade estas dos líneas:

Imagen.Parent := Self; // (Self se refiere al formulario, o donde quieras colocarla)
Image.Visible := TRUE;

Con esto debe aparecer.