Перемещение изображений по форме с помощью мыши

Code:

implementation

var

Pic: array[1..n] of TImage; //Сюда мы занесём наши Image

x0, y0: integer; //Это будут координаты нажатия мыши

flag: boolean; //а это тоже полезная переменная - флажок

Для первого из наших Image создадим обработчики следующих событий

{Как вы уже догадались наша форма называется MainForm}

procedure TMainForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if button <> mbLeft then

   flag := false

else

begin

   flag := true;

   x0 := x;

   y0 := y

end

end;

{ При нажатии левой клавиши мыши над нашим Image запомним координаты нажатия

и установим флажок. Это делается для того, чтобы Image перемещался только при

опущенной левой кнопке мыши}

procedure TMainForm.Image1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

flag := false

end;

{При отпускании кнопки мыши, не важно какой, сбросим флажок}

procedure TMainForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if flag then

begin //Если флажок установлен, т.е. нажата левая копка мыши

   (Sender as TImage).Left := (Sender as TImage).Left + x - x0;

   (Sender as TImage).Top := (Sender as TImage).Top + y - y0

   //Наш Image начинает перемещаться

end;

end;

Code:

procedure TMainForm.FormCreate(Sender: TObject);

var

i: byte;

begin

for i := 0 to MainForm.ComponentCount - 1 do

   if (MainForm.Components[i] is TImage) then

     Pic[MainForm.Components[i].Tag] := (MainForm.Components[i] as TImage);

{Здесь мы просматриваем компоненты формы и если рассматриваемый компонент

- TImage присваеваем его в массив Pic c индексом Tag}

for i := 1 to n do

begin

   Pic[i].Picture.LoadFromFile(IntToStr(i) + '.bmp'); //Загружаем изображение

   Pic[i].OnMouseDown := Image1MouseDown;

   Pic[i].OnMouseMove := Image1MouseMove;

   Pic[i].OnMouseUp := Image1MouseUp

   {Присваеваем нужные процедуры нужным событиям}

end

end;

{В принципе можно было бы обойтись одним циклом For, но, на мой взгляд

два цикла наглядней и проще для понимания}