MoviendoImagen (Intento)

[bulc]

Hola ecfisa. Debido a que llevaba en la cabeza que la utilidad fuera lo más sencilla posible, no llegué a pulsar la tecla de CTRL. De todos modos creo que tu ayuda ha sido definitiva. Estudiaré el código y me buscaré la manera de dejarlo a mi gusto, ya por mi cuenta.
Es para escolares de infantil que aún no saben leer demasiado. Pero con un programa así, aprenden con total independencia.
Un abrazo,
bulc

[ecfisa]

Hola bulc.

Así queda el ejemplo sin el uso de la tecla Ctrl:

Código Delphi [-]
implementation  

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

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 )].Left := TImage( Components[i] ).Left;
      ImageArray[High( ImageArray )].Top  := TImage( Components[i] ).Top;
    end;
  end;
end;

procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ori      := Point( X, Y );
  CtrlPress:= True;
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);
  function IsInShape(I: TImage; S: TShape): Boolean;
  begin
    Result:= ((I.Left > S.Left)and(I.Top > S.Top)) and
      ((I.Left+I.Width < S.Left+S.Width)and(I.Top+I.Height < S.Top+S.Height));
  end;
var
  img: TImage;
  i  : Integer;
  R  : TRect;
  ok : Boolean;
begin
  img := TImage( Sender );
  ok  := False;
  for i:= Low( ShapeArray ) to High( ShapeArray ) do
    if IsInShape(img, ShapeArray[i]) then
      if img.Tag = ShapeArray[i].Tag then
      begin
        ok := True;
        Break;
      end;
  if ok then
    ShowMessage( '¡Correcto!' )
  else
  begin
    ShowMessage('Inténtalo otra vez');
    TImage(Sender).Left := ImageArray[img.Tag-1].Left;
    TImage(Sender).Top  := ImageArray[img.Tag-1].Top;
  end;
  CtrlPress:= False;
end;
end.

Este último código deja la imágen en el shape cuando la elección es correcta, en caso contrario, la regresa a la posición de orígen.

Saludos

[bulc]

Ya lo había conseguido, pero gracias de todos modos. Ya estoy en los últimos retoques. Gracias, ecfisa.

[bulc]

Al analizar tu programa me he quedado con cara de asombro al ver una función incrustada dentro de un procedimiento. Me refiero a IsInShape. Muy elegante la solución. La cosa queda muy clara. No me había percatado que todo Array/matriz dinámico tiene su origen en cero. Pensaba que se comportaba como los arrays estáticos.
Por otro lado usas un Array de TRect para guardar los parámetros de ubicación y tamaño de los TImage. Creo que también se podría usar un array dinámico de TPoint. Ya que con la ubicación tenemos suficiente. Y luego hay algunas variables que no se usan y que tras compilar se pueden quitar.
Me has quitado la venda de los ojos, ecfisa.
Espero que sirva para muchos otros delphineros!
Saludos,
bulc

[bulc]

Intento esto pero no lo puedo condensar:

Código Delphi [-]
unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
  TForm1 = class(TForm)
    Image1: TImage;   Image2: TImage;  Image3: TImage;  Image4: TImage;
    Button1: TButton;  Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Type
   TImg_AR = Array of Record
     L, T, R, B, Tg : Integer;
     end;
Var
   Img_A : TImg_AR;
   I, A: Integer;
  N: Integer;
Begin
  Memo1.Clear;
  Memo1.Lines.Add(' Puntos Left, Top, R=Left+Width, B=Top+Height, Tag' );
  Memo1.Lines.Add(' Left,   Top,   Right, Bottom,  Tag') ;
  SetLength(Img_A, 4);  // 
  for I :=0 To ComponentCount - 1 do
      if (Components[i] is TImage) then
      begin
       for N := 0 to 3 do
        begin
                Img_A[N].L := TImage(Components[i]).Left; ;
                Img_A[N].T := TImage(Components[i]).Top;
                Img_A[N].R := TImage(Components[i]).Left + TImage(Components[i]).Width ;
                Img_A[N].B := TImage(Components[i]).Top + TImage(Components[i]).Height ;
                Img_A[N].Tg:= TImage(Components[i]).Tag;
        end;
 end;
   For I := 0 to 3 do
   Memo1.Lines.Add(' L' +IntToStr ( Img_A[i].L ) +'  T'+ IntToStr (Img_A[i].T  ) +
                '   R' + IntToStr ( Img_A[i].R ) +'  B'+ IntToStr ( Img_A[i].B ) +'  Tg' + IntToStr(Img_A[i].Tg) );

end;
end.

Código Delphi [-]
Y en cambio con este código me funciona. A pesar de su 'pesadez'.
for I :=0 To ComponentCount - 1 do
      if (Components[i] is TImage) then
      begin
       if (Components[i].Name ='Image1') then
       begin
                Img_A[0].L := TImage(Components[i]).Left; ;
                Img_A[0].T := TImage(Components[i]).Top;
                Img_A[0].R := TImage(Components[i]).Left + TImage(Components[i]).Width ;
                Img_A[0].B := TImage(Components[i]).Top + TImage(Components[i]).Height ;
                Img_A[0].Tg:= TImage(Components[i]).Tag;
       end;
        if (Components[i].Name ='Image2') then
        begin
                Img_A[1].L := TImage(Components[i]).Left; ;
                Img_A[1].T := TImage(Components[i]).Top;
                Img_A[1].R := TImage(Components[i]).Left + TImage(Components[i]).Width ;
                Img_A[1].B := TImage(Components[i]).Top + TImage(Components[i]).Height ;
                Img_A[1].Tg:= TImage(Components[i]).Tag;
        end;

Te ruego le des un vistazo a ver qué hago mal. Muchas gracias por tu tiempo.
bulc

[ecfisa]

Hola bulc.

Según lo que entendí que deseas hacer sería:

Código Delphi [-]
  ...
  SetLength(Img_A, 4);
  N:= 0;
  for i :=0 To ComponentCount - 1 do
    if (Components[i] is TImage) then
    begin
      Img_A[N].L := TImage(Components[i]).Left;
      Img_A[N].T := TImage(Components[i]).Top;
      Img_A[N].R := TImage(Components[i]).Left + TImage(Components[i]).Width ;
      Img_A[N].B := TImage(Components[i]).Top + TImage(Components[i]).Height ;
      Img_A[N].Tg:= TImage(Components[i]).Tag;
      Inc(N);
    end;
  ...

Saludos

[bulc]

Eres un portento. A toro pasado parece tan fácil!!
Gracias.