![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
|||
|
|||
|
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; Un saludo |
|
|
|