При перемещении Form1 по экрану, нужно чтобы Form2 перемещалась вместе с ней — Delphi(Делфи)

procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: integer);
begin
  if Shift <> [ssLeft] then
  begin
    MX := X;
    MY := Y;
  end
  else
  begin
    Form1.Left := Left + X - MX;
    Form1.Top := Top + Y - MY;
    Form2.Left := Left + X - MX;
    Form2.Top := Top + Y - MY;
  end;
end;

Leave a Comment