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

[[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,

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.

Sigo sin entender... Si ClipCursor(nil) hace normal el cursor, ¿dónde lo coloco? En el evento onDrop, ¿quizás? Pero, es q si está fuera del Form=origen del TLabel, no se activaría. ¿Cómo lo ves?
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.

[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. !!