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

[bulc]

Más gente al paro.

[Neftali [Germán.Estévez]]

Empezado por bulc

Más gente al paro.

No lo creo. Yo tengo en la mesa del comedor ahora, uno de 3000 piezas...
Dudo que pudiera hacerlo en la pantalla...

[bulc]

Una preguntita. ¿Cómo se impide que el ratón salga del TForm llevándose la notita-cursor del proceso Drag&Drop?
Los enanos alumnos, se llevan la letra fuera (al escritorio windows) y la pierden, lo mismo que pierde la paciencia su profe.
Lo dicho... Gracias.

[ecfisa]

Empezado por bulc

Una preguntita. ¿Cómo se impide que el ratón salga del TForm llevándose la notita-cursor del proceso Drag&Drop?
Los enanos alumnos, se llevan la letra fuera (al escritorio windows) y la pierden, lo mismo que pierde la paciencia su profe.
Lo dicho... Gracias.

Hola bulc.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R:= GetClientRect;
  MapWindowPoints(Handle,0,R,2);
  ClipCursor(@R);
end;

// Necesario para salir de la aplicación
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

Saludos.

[[nlsgarcia]]

bulc,

Empezado por ecfisa

// Necesario para salir de la aplicación

Revisa este código:

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

El código anterior devuelve la funcionalidad normal al cursor (Remueve el Clipping State).

También puedes salir de la aplicación con la secuencia de teclas ALT+F4.

Espero sea útil

Nelson.

[ecfisa]

Empezado por nlsgarcia

bulc,
Revisa este código:

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

Hola Nelson.

Supongo que bulc no desea que los niños tengan un botón para desactivar la restricción del mouse y así poder llevar letras al escritorio...

Saludos.

[[nlsgarcia]]

ecfisa,

Empezado por ecfisa

Supongo que bulc no desea que los niños tengan un botón para desactivar la restricción del mouse y así poder llevar letras al escritorio...

Es solo información complementaria, quizás la aplicación tenga más de un formulario

Nelson.

[bulc]

Empezado por nlsgarcia

bulc,



Revisa este código:

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

El código anterior devuelve la funcionalidad normal al cursor (Remueve el Clipping State).

También puedes salir de la aplicación con la secuencia de teclas ALT+F4.

Espero sea útil

Nelson.

No sé si me he explicado bien. Lo que quiero es evitar que un Drag de TLabel, salga fuera del TForm y si se levanta el botón del ratón, se pierda. Bulc.

[[nlsgarcia]]

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.

[bulc]

Empezado por nlsgarcia

bulc,

Revisa este código:

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

El código anterior devuelve la funcionalidad normal al cursor (Remueve el Clipping State).

También puedes salir de la aplicación con la secuencia de teclas ALT+F4.

Espero sea útil

Nelson.

Nelson, he montado el proyecto tal como indicabas y realmente has dado en el clavo. El cursor queda limitado al área cliente. Todo a pedir de boca. Eres un genio. Gracias mil. !!

[bulc]

Empezado por ecfisa

Hola bulc.

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
var
  R: TRect;
begin
  R:= GetClientRect;
  MapWindowPoints(Handle,0,R,2);
  ClipCursor(@R);
end;

// Necesario para salir de la aplicación
procedure TForm1.btnSalirClick(Sender: TObject);
begin
  Close
end;

Saludos.

Gracias, enseguida lo pongo en práctica.