MoviendoImagen (Intento)

[ecfisa]

Hola bulc.

Fijate si te sirve este ejemplo (basado en el hilo: Mover TSpeedButton en Runtime):

Código Delphi [-]
...
implementation

var
 ori: TPoint;
 CtrlPress: Boolean = False;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Imágenes al frente
  Image1.BringToFront;
  Image2.BringToFront;
  DoubleBuffered:= True;
end;

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ori:= Point( X, Y );
  CtrlPress:= ssCtrl in Shift;
end;

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if CtrlPress then
    with TImage(Sender) do
    begin
      Left := X - ori.X + Left;
      Top  := Y - ori.Y + Top;
    end;
end;

procedure TForm1.ImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  CtrlPress:= False;
end;

no olvides asignar los eventos ImageMouseDown, ImageMouseMove e ImageMouseUp a los eventos correspondientes de cada uno de los TImage que utilices.

Saludos

[bulc]

Muchas gracias ecfisa. !Siempre tan a punto!
He añadido (en el evento onMouseDown) la linea:

Código Delphi [-]
 IF (Sender is TImage) then  (Sender as TImage).BringToFront;

Y ya puedo posar las letras imágenes en los cuadros de texto. Pensaba que era algo así como StayOnTop, pero es lo que tú dices.
Me puedes decir, ¿cómo identifico cada TImage para que se detenga en cada TShape la letra correcta? Dame una pista y ya intento hacerlo yo.
He probado con las coordenadas y no me va bien.
¿O tal vez el código enviado cubre este aspecto?

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

Te dejo esta entrada antigua en mi blog donde se habla de crear imágene en runtime y moverlas con el ratón.
A ver si te sirve de algo. La técnica es similar a la que estás utilizando.

Tienes el código fuente del ejemplo por si quieres echarle un vistazo.

[bulc]

Hola ecfisa.
Mi pregunta era sobre cómo discriminar el TImage correcto, cuando este se deja sobre uno de los cuadros TShape, en concreto sobre el que le corresponde.
Ya sé crear TImages at runtime. Lo que no sé es cómo validar el TImage que se lleva dentro del TShape al hacer MouseUp. He pensado que tal vez se pueden poner los TShape con valor Unabled:=False y luego
al coger el TImage (letra) correcta habilitarlo. He intentado usar los parámetros X,Y de situación pero el MouseUp proporciona los parámetros del TImage movido y no los del TShape.
En fin, si no supone mucho marear la perdiz, tal vez a alguien se le ocurra algo. Cuando usas el Drag/Drop tienes los valores del Source y del Sender que facilitan mucho la labor. Seguiré intentándolo.
Perdona por la insistencia en ese punto.
Saludos, bulc.

[ecfisa]

Hola bulc.

Supongo que debe haber mejores formas, pero es la que se me ocurrió ahora...

La idea, basicamente, consiste en asignarle a cada dupla image-shape un mismo número en la propiedad Tag, datos estos que se verifican en el evento OnMouseDown. Al finalizar el mensaje del resultado, las imágenes vuelven a su lugar de origen para iniciar un nuevo intento.

El ejemplo utiliza la función IntersectRect para determinar si la imágen toca el shape correspondiente, por lo que los shapes deben estar separados por una distancia que impida que la imagen toque dos al mismo tiempo.

Código Delphi [-]
...
implementation 

var
 ori         : TPoint;
 CtrlPress   : Boolean = False;
 ShapeArray  : array of TShape;
 ImageArray  : array of TPoint;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, cs, ci: Integer;
  sh: TShape;
begin
  Image1.BringToFront;
  Image2.BringToFront;
  Image3.BringToFront;
  Image1.Tag := 1;
  Image2.Tag := 2;
  Image3.Tag := 3;
  DoubleBuffered:= True;

  for i:= 0 to ComponentCount-1 do
  begin
    if Components[i] is TShape then
    begin
      SetLength ( ShapeArray, Length( ShapeArray ) + 1 );
      ShapeArray [High( ShapeArray )]:= TShape( Components[i] );
    end;
    if Components[i] is TImage then
    begin
      SetLength ( ImageArray, Length( ImageArray ) + 1 );
      ImageArray[High( ImageArray )].X := TImage( Components[i] ).Left;
      ImageArray[High( ImageArray )].Y := TImage( Components[i] ).Top;
    end;
  end;
end;

procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssCtrl in Shift then
  begin
    ori      := Point( X, Y );
    CtrlPress:= True;
  end;
end;

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if CtrlPress then
    with TImage( Sender ) do
    begin
      Left := X - ori.X + Left;
      Top  := Y - ori.Y + Top;
    end;
end;

procedure TForm1.ImagesMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  im: TImage;
  i, sh : Integer;
  R : TRect;
  ok: Boolean;
begin
  if CtrlPress then
  begin
    CtrlPress:= False;
    im := TImage( Sender );
    ok := False;
    
    for i:= Low( ShapeArray ) to High( ShapeArray ) do
      if IntersectRect( R, im.BoundsRect, ShapeArray[i].BoundsRect ) then
        if im.Tag = ShapeArray[i].Tag then
        begin
          sh:= ShapeArray[i].Tag;
          ok := True;
        end;

    if ok then
      ShowMessage( '¡Correcto!' )
    else
      ShowMessage('Inténtalo otra vez');

    TImage(Sender).Left := ImageArray[im.Tag-1].X;
    TImage(Sender).Top  := ImageArray[im.Tag-1].Y;
  end;
end;
end.

La prueba tiene este formato inicial:


(Te adjunto el código fuente)
Saludos

[bulc]

Ecfisa, el hecho de tener que separar los TShape de destino es un impedimento, ya que en mi caso, los destinos mostrarán letras. Pero bueno, tu esfuerzo ya es de agradecer. Probaré con esa técnica. Yo había pensado en inhabilitar los TShape de partida y habilitar el correcto al hacer MouseDown de la imagen correspondiente. También pensé en hacer lo mismo usando las coordenadas del TShape correcto. Pero el TImage da las TPoint del TImage al hacer el evento OnMouseUp, no las del Form que serían más útiles. En fin, le daré vueltas a ver qué pasa.
Muchas gracias, ecfisa.
Bulc

[ecfisa]

Hola bulc.

el hecho de tener que separar los TShape de destino es un impedimento, ya que en mi caso, los destinos mostrarán letras.

No se si entiendo el comportamiento del juego, pero si los Shapes estan juntos, estimo que las imágenes serán de menor tamaño que los primeros y en ese caso no tendrías problema.

Saludos