Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Otro problemilla... (https://www.clubdelphi.com/foros/showthread.php?t=465)

craven 15-05-2003 13:31:08

Otro problemilla...
 
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 15: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:

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 16: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 16: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.


La franja horaria es GMT +2. Ahora son las 14:37:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi