Перемещение графических объектов по форме

[Klyacksa]

Начала делать через объеkты shape. Не получается организовать взаимодействие объеkтов и методов. Каk сделать, чтобы двигался именно нужный объеkт, а не все вместе и чтобы они не наkладывались друг на друга? вот kод:

unit Shape_;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
   Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Shape1: TShape;
    constructor ShapeCreate(Sender:TObject; var NewShape:TShape);
       procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
  cx,cy,x,y:integer;
  down:boolean=false;
implementation
{$R *.dfm}
constructor TForm2.ShapeCreate(Sender:TObject; var NewShape:TShape);
begin
 NewShape:=TShape.Create(Self);
 with NewShape do
  begin
    Parent:=Form2.GroupBox1;
    Shape:=stCircle;
    OnMouseDown:=Shape1MouseDown;
    OnMouseMove:=Shape1MouseMove;
    OnMouseUp:=Shape1MouseUp;
    Left:=288;
    Top:=11;
  end;
end;
procedure TForm2.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var NewShape:TShape;
begin
 down:=true;
if (Shape1.Left=288) and (Shape1.Top=11) then
                                  ShapeCreate(GroupBox1,NewShape);
cx:=x;
cy:=y;
end;
procedure TForm2.Shape1MouseMove(Sender:TObject;
    Shift:TShiftState;X,Y:Integer);
var Left,Top:integer;
    NewShape:TShape;
begin
 if down=true then
begin
Left:=Shape1.Left-cx+x;
Top:=Shape1.Top-cy+y;
if (Left<Form2.GroupBox1.Width-Shape1.Height) and
    (Left>Form2.GroupBox1.Left-15)
     then Shape1.Left:=Left;
if (Top<Form2.GroupBox1.Height-Shape1.Width) and
    (Top>Form2.GroupBox1.Top-20)
     then Shape1.Top:=Top;
end;
end;
procedure TForm2.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
down:=false;
end;
end.

[pu4koff]

вообще несколько не понял код, но чтобы работать с тем, элементом, по которому тыкнули используй: TShape(Sender)...

[НЕ_АЙС]

Держи, набросал на скорую руку.

[itisiam]

норм кодос. Только я не понял вы там список то создаете из фигур?

[_Инженер_]

Это я удачно зашел. Спасибо всем, кто выложил свои примеры. Это я и искал.

[mutabor]

Klyacksa, не знаю что от тебя хотят увидеть в универе, может динамическое создание/удаление компонентов, может еще что-то.
Но могу сказать способ вообще без единого компонента, я имею ввиду визуальные компоненты. Из Дельфи объектов понадобиться только TBitmap.
Принцип тот же что Alex21 в начале написал, только вся работа будет с собственными структурами, а сообщения от мыши будут браться с формы, кстати пустой, разве что кнопочек можно пару штук кинуть если надо.

Кстати насчет компонентов, если и использовать в данном случае, то TImage, нужно ведь изображения таскать? Если нет то можно другой.
Динамически созданные компоненты нужно уничтожать самому, если в ходе программы, если они будут до конца работы приложения то не обязательно, при выходе система сама память освободит.
Object.Free;
Object:=nil;
или
FreeAndNil(Object);

Чтобы они не накладывались друг на друга, нужно проверять на столкновения.

Вот пример как я говорил, без визуальных компонентов, это программа для помощи в расшифровке загаданных слов с перепутанными буквами, тут когда то играли в такую игру в свободном общении, некоторые может помнят, это ее исходник.