Сначала объявить вот это
Код:
1 2 3 4 5 6 7 8 9 10 11 12 | procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move then
begin
(Sender as TImage).SetBounds(
(Sender as TImage).Left+X-X0,
(Sender as TImage).Top+Y-Y0,
(Sender as TImage).width,
(Sender as TImage).height);
end;
end;
|
затем нужно для всех image в обжект инспекторе сделать так
Код:
1 2 3 | OnMouseDown = Image2MouseDown;
OnMouseMove = Image2MouseMove;
OnMouseUp = Image2MouseUp;
|
и всё