![]() |
Cita:
Ya lo comenté la anterior vez, que hiciste lo mismo, por favor, respeta las normas de los foros, gracias :) |
Acepta mis disculpas
De acuerdo.
|
Gracias por tu comprensión ^\||/
|
¿Tu aplicación es MDI?, ¿Tus formularios se crean en tiempo de ejecución? (¿incluido el formulario abeja?) Options
Cita:
Comparto un poco la respuesta de Al Cita:
|
Es una aplicación multificha normal
El objetivo de esta aplicación escolar es llevar letras TLabel para formar la palabra del animal que se muestras en un TImage. Debajo hay otro TImage de fondo tapado con otros TImages de Tapa.
Al dejar el TLabel que se arrastra, aparece la letra, etc... No es MDI, es una aplicación multificha normal. Carga 20 ventanas=fichas al iniciarse. El objeto es llevar letras (TLabel) grandes a unas TImages. Al hacer Drop en la Imagen, aparece una letra, etc. (Se entiende?) Los alumnos llevan el TLabel (Cursor de Drag), pero algunos "lo sacan de la ventana" de la aplicación y lo sueltan en el escritorio, con lo cual pierden el TLabel. Me gustaría saber como devolver el TLabel a su sitio en caso de soltarlo fuera, igual que hago dentro de la ventana de la aplicación. Espero que se entienda. |
bulc,
Cita:
Revisa este link: Cita:
Nelson. |
Respuesta a NelsonGarcía
No entiendo eso de la API que mencionas. ¿Podrías extenderte un poco más?. Gracias de todas formas.
|
Respondo
Cita:
Me quedaré con las ganas de saber por qué diantres arrancaba por su cuenta. Espero no molestar. Ahora me queda saber como limitar el arrastre de los TLabel a la ventana que los contiene sin poder sacarlos el escritorio... |
bulc,
Cita:
El código anterior evita que el cursor salga de Form1 por medio del API ClipCursor. Cita:
El código anterior devuelve la funcionalidad normal al cursor. Es necesario si tienes más de un formulario en tu aplicación para remover el Clipping State. Todo el código anterior se encuentra en el link mencionado anteriormente. Espero sea útil :) Nelson. |
Cita:
|
bulc,
La función ClipCursor(nil) devuelve la funcionalidad normal al cursor. Es necesario si tienes más de un formulario en tu aplicación para remover el Clipping State, en caso contrario no es requerido. Espero sea útil :) Nelson. |
Cita:
¿ Pero esto no es lo mismo que se trato anteriormente [ aquí ] ? Saludos. |
Cita:
Me he dado cuenta que al hacer BeginDrag(True), salta el cursor de la notita y el OnMouseUp del TLabel, también se activa, con prioridad al Drop. Por ahí iba yo, pero nada. He probado con el código que me sugieren pero nada. Saludos. Bulc. |
Si, se había tratado
Cita:
|
Hola bulc.
Creo que vas a tener que darnos mas información, por que de este modo estamos tratando de adivinar como tenes organizada tu aplicación. De acuerdo a lo que comentas: Cita:
Saludos. |
bulc,
Cita:
El código anterior hace Drag&Drop de 3 TLabel (Números) y verifica si se selecciono el número correcto. Este ejemplo hace uso de la función ClipCursor la cual limita el movimiento del cursor solo a la coordenadas sobre las cuales se definió y muestra como remover el Clipping Status. La aplicación esta implementada en el siguiente link: http://terawiki.clubdelphi.com/Delph...op_Numeros.rar Espero sea útil :) Nelson. |
Gracias por tu esfuerzo. Estudio el código y te cuento. Bulc
|
Absolutamente correcto. Gracias
Cita:
|
La franja horaria es GMT +2. Ahora son las 04:25:53. |
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