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

Привет!

Может быть использовать ф-цию  GetClientRect ?

onPaint можно обрабатывать.

Можно через таймер, или обрабатывать OnMouseUp;

Спасибо, но я сделал вот так:

private
 procedure NCMouseMove(var Msg: TMessage); message WM_NCMOUSEMOVE;


...
x:=GetSystemMetrics(SM_CXSIZE);
...

procedure TForm1.NCMouseMove(var Msg: TMessage);
begin
inherited;
if (msg.WParam=HTCAPTION) then
begin
Form2.Left:=Form1.Left-Form2.Width-20;
Form2.Top:=Form1.Top+X;
end;
end;

Мне нужно это для того чтобы одновременно перетаскивать 2 формы, но в етим способом вторая форма меняет свое положение только после того как я, перетащив первую форму, отпускаю кнопку мышки. Можно ли как то сделать, чтоб форма перетаскивалась одновременно с первой?

Ну, плз, подскажите как сделать, чтобы обе формы перетаскивались одновременно.

При начале перетаскивания генерируется событие. Перехватываешь это событие и создаёшь таймер к примеру на 0.1 сек. и опрашиваешь положение окна и относительно полученных данных меняешь положение второго окна, а после перехвата события завершения перетаскивания окна таймер отключаешь...

вроде проще некуда...

Цитата(Vit @ 03.1.2003, 19:09)

onPaint можно обрабатывать.

OnPaint вызывается у меня в 4 случаях:
1. Изменение содержимого формы (обновляется только изменившаяся часть).
2. При выходе за пределы экрана.
3. При перекрытии другой формой.
4. По требованию системы (например при смене цветовой гаммы).

Попробуй обработать следущие сообщения и напиши что-то вроде этого:

NC_LBUTTONDOWN:
 FormsDragging := True;
 XOffset := X;
 YOffset := Y;

NC_LBUTTONUP:
 FormsDragging := False;

NC_MOUSEMOVE:
 if FormsDragging then
 begin
   OtherForm.Left := (OtherForm.Left+X)-XOffset;
   OtherForm.Top := (OtherForm.Top+Y)-YOffset;
 end;

OtherForm - это вторая форма. Переменные FormsDragging, XOffset, YOffset oбъяви глобально.

P.S. See also WM_MOVE

Цитата(neutrino @ 06.1.2003, 13:21)

Попробуй обработать следущие сообщения и напиши что-то вроде этого: NC_LBUTTONDOWN:  FormsDragging := True;  XOffset := X;  YOffset := Y; NC_LBUTTONUP:  FormsDragging := False; NC_MOUSEMOVE:  if FormsDragging then  begin    OtherForm.Left := (OtherForm.Left+X)-XOffset;    OtherForm.Top := (OtherForm.Top+Y)-YOffset;  end; OtherForm - это вторая форма. Переменные FormsDragging, XOffset, YOffset oбъяви глобально. P.S. See also WM_MOVE

Сообщение WM_NCMOUSEMOVE наступает только тогда, когдя я, перетащив форму, отпускаю кнопку мышки. Мне же жедательно сделать так, чтобы перетаскиванее было одновременным, как это сделано, например, в Winamp.
Если же ставить таймер во второй форме на проверку нажатия на заголовок в первой форме и при этом нажатии перемещать вторую форму, то при загруженности системы, перетаскивание второй формы происходит рывками.

...
 private
   { Private declarations }
   procedure WMMOVE(var Msg: TMessage); message WM_MOVE;
....


procedure TForm1.FormShow(Sender: TObject);
begin
 Form2.Show;
end;

procedure TForm1.WMMOVE(var Msg: TMessage);
begin
 inherited;
 if (Form2 <> nil) and (Form2.Visible) then begin
   SetWindowPos(Form2.Handle, 0, Msg.LParamLo - Form1.Width, Msg.LParamHi, 0, 0, SWP_NOSIZE or SWP_NOACTIVATE);
 end;
end;

все прекрасно работает

Form2.Visible не обязательно -- это так иссделования и еще если отключен "показ содержимого окна при перетаскивании" этот код не канает

Хорошо обрабатывать сообщение WM_MOVING
From forum: