Движение форм Опции

[sheka]

Как осуществить передвижение второй формы, когда перемещается 1я?

[volvo]

Ну, попробуй тогда вот так изменить класс первой формы:

type
  TForm1 = class(TForm)
    // ...
  private
    px, py: integer;
    started: boolean;
    procedure OnMove(var aMsg:TWMMove);message WM_MOVE;
  end;

procedure TForm1.OnMove(var aMsg:TWMMove);
begin
  if started then
  begin
    form2.Left := form2.Left + (form1.Left - px);
    form2.top := form2.top + (form1.top - py);
    form3.Left := form3.Left + (form1.Left - px);
    form3.top := form3.top + (form1.top - py);
    form4.Left := form4.Left + (form1.Left - px);
    form4.top := form4.top + (form1.top - py);

    px := Form1.Left; py := Form1.Top;
  end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  form2.Left:=(form1.Panel1.Width div 2) - (form2.Width div 2)+form1.Left;
  form2.top:=(form1.Panel1.height div 2) - (form2.height div 2)+form1.Top;
  px := Form1.Left; py := Form1.Top; // добавляем эти 2 строки
  started := true;
end;

Тебе этого хотелось что-ли?

[sheka]

Тебе этого хотелось что-ли?

Оно самое! Спасибо!!!