Склеить формы.

← →
AMD (2007-08-04 13:22) [0]

Здравствуйте!
Есть две формы надо сделать так чтобы когда двигалась одна то за ней двигалась и вторая.Т.е "склеить их" , как в винапе например. Заранее спасибо.

← →
Ping (2007-08-04 13:42) [1]

Можно обрабатывать сообщение WM_MOVE:

TForm1 = class(TForm) private procedure WMMove(var a_Msg: TWMMove); message WM_MOVE; end; procedure TForm1.WMMove(var a_Msg: TWMMove); begin if (Form2 <> nil) then begin Form2.Left := Left; Form2.Top := Top + Height; end; end;

← →
Eraser © (2007-08-04 14:36) [2]

> [0] AMD (04.08.07 13:22)

в JEDI VCL есть компонент такой, посмотри как сделан.

← →
Zagaevskiy © (2007-08-04 20:27) [3]

> винапе

винампе?

См функции:

BeginDeferWindowPos
DeferWindowPos
EndDeferWindowPos

Склеить формы. Найти похожие ветки