[mishapk]

Добрый день.
Внутри Scrollbox расположен Image1.
Image1 перетаскивается мышкой внутри Scrollbox.

По мимо всего этого на Image1 накладывается множество динамически создаваемых Image'ov, координаты которых хранятся в БД.
Как эти динамические Image'ы закрепить на Image1. Что бы при перетаскивание Image1 они были на нем закреплены.
Не хотелось бы в Image1MouseMove запускать цикл бегающего по массиву динамических imagev изменяя их координаты.
Может надо как то задать свойство Parent правильно. Если я задаю Parent=Scrollbox то я не вижу их. А так у меня Parent=Image1

Код:

var
  Form1: TForm1;
  LX: Integer;
  LY: Integer;
  SX: Integer;
  SY: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ScrollBox1.DoubleBuffered:= True;
   Image1.Top := 0;
   Image1.Left := 0;
   LX := (Image1.Width - ScrollBox1.ClientWidth) * -1;
   LY := (Image1.Height - ScrollBox1.ClientHeight) * -1;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SX := X;  // X start co-ordinate
  SY := Y;  // Y start co-ordinate
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
   var NX: Integer;
    NY: Integer;
begin
   if not (ssLeft in Shift) then
  Exit;
  NX := Image1.Left + X - SX;
NY := Image1.Top + Y - SY;
if (NX < 0) and (NX > LX) then
  Image1.Left := NX;
  if (NY < 0) and (NY > LY) then
  Image1.Top := NY;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  LX := (Image1.Width - ScrollBox1.ClientWidth) * -1;
   LY := (Image1.Height - ScrollBox1.ClientHeight) * -1;
end;