Перемещение объектов

[_-Re@l-_]

Как можно перемещать в определённое место на форме сразу, например, 5 Shape'ов, если у меня на форме, допустим, 25 Shape'ов?

[ex.cluz]

Top и Left менять у каждого...а в чем проблема?

[_-Re@l-_]

Я имел ввиду не прописывать для каждого(Shape1.Top:=...,Shape1.Left :=....), а именно сразу у всех

[ex.cluz]

А как программа узнает, какие именно шейпы нужно переместить?

[_-Re@l-_]

Так вот про это и спрашиваю!

[ex.cluz]

Я имел ввиду что делает пользователь, что бы шейпы перемещались?
Выбирает их с помощью мыши? Или что?

[Stilet]

_-Re@l-_

по каким критериям ты выбираешь фигуры?

[_-Re@l-_]

у меня 25 одинаковых фигур

[ex.cluz]

Без кода, видимо, не разберемся.
Нужен конкретный пример.

[_-Re@l-_]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Label1: TLabel;
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N10101: TMenuItem;
    N15151: TMenuItem;
    N20201: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Shape17: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape20: TShape;
    Shape21: TShape;
    Shape22: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Shape25: TShape;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  minute,second: integer;
  tim: string;
  r: integer;
  i,j,x,y:integer;
  A:array[1..5,1..5] of integer;


implementation

{$R *.dfm}
uses unit2,unit3;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     tim:='';
     second:=second+1;
     if second=60 then minute:=minute+1;
     if minute<10 then tim:=tim+'0'+IntToStr(minute)+':';
     if minute>=10 then tim:=tim+IntToStr(minute)+':';
     if second<10 then tim:=tim+'0'+IntToStr(second);
     if second>=10 then tim:=tim+IntToStr(second);
     Label1.Caption:=tim;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
     Form1.Close;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin

end;



procedure TForm1.FormCreate(Sender: TObject);
begin
     randomize;
     for i:=1 to 3 do
     begin
          x:=random(5);y:=random(5);
          A[x,y]:=1;
          B[x]:=250+41*(x-1);
          C[y]:=220+41*(y-1);
     end;
end;

end.