PDA

Ver la Versión Completa : Otro problemilla...


craven
15-05-2003, 14:31:08
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
15-05-2003, 16:06:21
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
15-05-2003, 17:21:00
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
15-05-2003, 17:27:30
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.