Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Problema con un TImage (https://www.clubdelphi.com/foros/showthread.php?t=16477)

Jan_polero 29-11-2004 22:59:03

Problema con un TImage
 
Hola a todos.
Estoy haciendo un form con imágenes de figuras geométricas y de agujeros para meterlas dentro .El caso es que puedas seleccionar una imagen con la figura y moverla hasta su sitio haciendo una copia.Es decir, al hacer click sobre un triángulo,por ejemplo.Se creará una copia que será la que se pueda mover por la pantalla hasta la otra imagen del agujero.Si se suelta sobre el agujero correcto,entonces el triángulo copiado y el original se destruyen y lo que era el agujero cambia la imagen a otra con el triángulo dentro.
Me han surgido dos problemas que no consigo resolver.No sé cómo hacer una copia de la imagen sin utilizar el metodo LoadFromFile para cargar la imagen,y no consigo que al pinchar la imagen se seleccione la copia que acabo de crear y pueda arrastrarla.
No sé si me he explicado bien,pero creo que más o menos se entiende.

Espero me ayudeis en lo que podais.Gracias.

roman 29-11-2004 23:15:11

Para crear una copia puedes crear un objeto TImage y usar algo como:

Copia.Picture.Bitmap.Assign(Image)

Pero por otro lado quizá yo me ahorraría la copia poniendo la propiedad DragMode de la imagen que se mueve en dmAutomatic y usando los eventos OnDragOver y OnDragDrop de la imagen del hueco. En OnDragOver pones Accept := true si la imagen que se está arrastrando (parámetro Source) es la que le corresponde y en el evento OnDragDrop mueves la imagen de la figura simplemente ajustando sus propiedades Left y Top.

// Saludos


La franja horaria es GMT +2. Ahora son las 08:14:21.

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