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

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

[[nlsgarcia]]

bulc,

Empezado por Bulc

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.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    txtSiete: TLabel;
    Button2: TButton;
    txtNumero: TLabel;
    txtUno: TLabel;
    txtNueve: TLabel;
    Button3: TButton;
    procedure FormDrapDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure LabelDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    iComponenteX, iComponenteY: Integer;
    bMoviendo: Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  PosLabel : Array[1..9] of TPoint;

implementation

{$R *.dfm}

// Asigna nuevas coordenadas a un Tlabel en Drag&Drog
procedure TForm1.FormDrapDrop(Sender, Source: TObject; X, Y: Integer);
begin
   if Source is TLabel then
   begin
      TLabel(Source).Left := X;
      TLabel(Source).Top := Y;
   end;
end;

// Activa Drag&Drog para un TLabel
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
   if Source is TLabel then
      Accept := (Source is TLabel);
end;

// Realiza Acciones en Modo Drag&Drog
procedure TForm1.LabelDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
   if (Source is TLabel) then
   begin
      if (TLabel(Source).Name = 'txtSiete') and (State = dsDragEnter) then
      begin
         txtSiete.Enabled := False;
         txtSiete.Visible := False;
         PlaySound('Correcto.wav',0, SND_FILENAME or SND_ASYNC);
         ShowMessage('Número Correcto');
      end;

      if (TLabel(Source).Name <> 'txtSiete') and (State = dsDragEnter) then
      begin
         PlaySound('Incorrecto.wav',0, SND_FILENAME or SND_ASYNC);
         ShowMessage('Número Incorrecto');
      end
   end;
end;

// Activa el Clipping Status
procedure TForm1.FormActivate(Sender: TObject);
var
   R: TRect;
begin
   R:= GetClientRect;
   MapWindowPoints(Handle,0,R,2);
   ClipCursor(@R);
end;

// Remove el Clipping Status
procedure TForm1.Button2Click(Sender: TObject);
begin
   ClipCursor(nil);
end;

// Inicializa el Form1
procedure TForm1.FormCreate(Sender: TObject);
begin

   txtUno.DragMode := dmAutomatic;
   PosLabel[1].X := txtUno.Left;
   PosLabel[1].Y := txtUno.Top;

   txtSiete.DragMode := dmAutomatic;
   PosLabel[7].X := txtSiete.Left;
   PosLabel[7].Y := txtSiete.Top;

   txtNueve.DragMode := dmAutomatic;
   PosLabel[9].X := txtNueve.Left;
   PosLabel[9].Y := txtNueve.Top;

end;

// Reset el Form1
procedure TForm1.Button3Click(Sender: TObject);
begin

   txtUno.Left := PosLabel[1].X;
   txtUno.Top := PosLabel[1].Y;

   txtSiete.Left := PosLabel[7].X;
   txtSiete.Top := PosLabel[7].Y;
   txtSiete.Enabled := True;
   txtSiete.Visible := True;

   txtNueve.Left := PosLabel[9].X;
   txtNueve.Top := PosLabel[9].Y;

end;

end.

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.

[bulc]

Gracias por tu esfuerzo. Estudio el código y te cuento. Bulc