Перемещение формы???

[lionman]

К примеру у меня две формы. Как сделать чтоб при перемещении одной перемещалась синхронно и вторая? Заранее спасибо.

[Greblin]

Как вариант: кинуть на форму таймер и с его помощью отслеживать перемещения формы, т.е. изменения свойств Form1.Left и Form1.Top. Соответственно изменять положение второй формы

[NikLik]

в той форме, к которой привязываем:
1) в описании

procedure OnMove(var Msg: TWMMove); message WM_MOVE;

2) сама процедура:

//пример--прикрепим form2 к правому верхнему краю form1
procedure Tform1.OnMove(var Msg: TWMMove);
begin
  form2.left:=form1.left+form1.width;
  form2.top:=form1.top;
end;

[Dux]

Работает, однако при запуске выдает ошибку Access violation in address 00450E10

[BOBAH13]

Сообщение от Dux

Работает, однако при запуске выдает ошибку Access violation in address 00450E10

Т.к.WM_MOVE пришел а Form2 все еще не была создана в Application.CreateForm

[Altera]

Вот так надо:

procedure Tform1.wmMove(var message: tMessage);
begin
   if form2 = nil then exit;
   form2.left:=left+width;
   form2.top:=top+height;
end;

[Shouldercannon]

Тоже есть вопросик по перемещению формы. Надо чтобы во время перемещения формы в переменные x (Left), y (Top) забивались координаты (цифры).

[ArtInt]

Данный вопрос уже обсуждался на форуме, но отвечу еще раз, в исходнике есть как перемещать несколько форм одновременно

[Shouldercannon]

Я имел введу другое. Я передвигаю одну форму и мне нужно чтобы ее координаты выводились в переменные. Например я переместил форму в верхний левый угол и её координаты стали таким x=0, y=0

[Selestis]

x:=form1.left;
y:=form1.top;