¿Cómo hacer un puzzle sencillo para niños?

[bulc]

De acuerdo.

[Casimiro Noteví]

Gracias por tu comprensión

[[gatosoft]]

¿Tu aplicación es MDI?, ¿Tus formularios se crean en tiempo de ejecución? (¿incluido el formulario abeja?) Options

Por otro lado si se coge una letra (Drag) de la ABEJA, y se la saca a pasear por el escritorio y si suelta el botón... !adiós letra!

¿Y cual es la funcionalidad correcta? estas habilitando Drag and Drop para las letras de la palabra, ¿para que?, ¿para que la lleven a un panel?, ¿para que la saquen de la pantalla?...

Comparto un poco la respuesta de Al

Me gustaría ayudarte, pero no hablo alemán.

Dices mucho pero... faltan detalles, no podemos ayudarte adivinando tu código.... ¿puedes poner ejemplos mas concretos?

[bulc]

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.

[[nlsgarcia]]

bulc,

Empezado por bulc

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

El control de los límites de la ventana se puede hacer por medio de la API ClipCursor, lo cual evitara que el TLabel salga fuera del formulario.

Revisa este link:

¿Cómo hacer un puzzle sencillo para niños?: http://www.clubdelphi.com/foros/showthread.php?t=81520

Espero sea útil

Nelson.

[bulc]

No entiendo eso de la API que mencionas. ¿Podrías extenderte un poco más?. Gracias de todas formas.

[ecfisa]

Empezado por bulc

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.

Hola bulc.

¿ Pero esto no es lo mismo que se trato anteriormente [ aquí ] ?

Saludos.

[bulc]

Empezado por ecfisa

Hola bulc.

¿ Pero esto no es lo mismo que se trato anteriormente [ aquí ]?

Saludos.

Pero sin solución.

[ecfisa]

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:

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.

Me surgen las siguientes dudas:

• ¿ Que función desempeñan esas 20 ventanas ?
• ¿ Quién es su Parent ?
• ¿ Donde estan situados los TImage ?
• ¿ Donde los TLabel ?
• ¿ De cuáles de las ventanas los alumnos sacan el TLabel hacia el escritorio ?

Saludos.

[bulc]

Empezado por gatosoft

¿Tu aplicación es MDI?, ¿Tus formularios se crean en tiempo de ejecución? (¿incluido el formulario abeja?) Options
¿Y cual es la funcionalidad correcta? estas habilitando Drag and Drop para las letras de la palabra, ¿para que?, ¿para que la lleven a un panel?, ¿para que la saquen de la pantalla?...
Comparto un poco la respuesta de Al
Dices mucho pero... faltan detalles, no podemos ayudarte adivinando tu código.... ¿puedes poner ejemplos mas concretos?

Soy Bulc. He hecho otra Form calcada de la de Abeja. He borrado la anterior y la he guardado en el projecto, y listo. Esta vez ya no aparece al ejecutarse la aplicación. Sólo cuando se la llama con Show.
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...

[[nlsgarcia]]

bulc,

Empezado por bulc

No entiendo eso de la API que mencionas. ¿Podrías extenderte un poco más?

Revisa este código:

Código Delphi [-]
// Limita el movimiento del Cursor solo a Form1 : Activa Clipping State
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R:= GetClientRect;
  MapWindowPoints(Handle,0,R,2);
  ClipCursor(@R);
end;

// Necesario para salir de Form1
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

El código anterior evita que el cursor salga de Form1 por medio del API ClipCursor.

Empezado por bulc

No es MDI, es una aplicación multificha normal. Carga 20 ventanas=fichas al iniciarse

Revisa este código:

Código Delphi [-]
// Remueve el Clipping State
procedure TForm1.RemoveClippingStateClick(Sender: TObject);
begin
   ClipCursor(nil);
end;

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.