Подскажите, как сделать что бы перетягивание форм происходило одновременно!

[•ScReam•™]

ДОброго времени суток) ... у меня очередной глюк =) ... пока мылся под душем пришла идея, помогите воплотить: Как в Делфи 7 сделать так, что бы открыв одну форму (главная, 1-я) и открыв вторую (вторая по размерам меньше чем первая), и вообщем при перетягивании первой формы по раб.столу - вторая и последующии двигались вместе. Так же и при перетягивании второй и третьей - все открытые формы двигаються следом. ... И еще кто подскажет хорошие компоненты для создания красивых кнопок и форм.

[Terran]

1)

Private
    { Private declarations }
    Procedure OnMove(Var Msg: TWMMove);
    Message WM_MOVE;
...
Procedure TForm1.OnMove(Var Msg: TWMMove);
Begin
If Form1.Showing Then
Begin
Form2.Left:=Form1.Left;
Form2.Top:=Form1.Top+Form1.Height;
End;
End;

2)
Можете использовать AlphaSkin'ы.