Привязка формы к форме

[psyco]

Здравствуйте! У меня появилась необходимость привязать форму(неосновную) к другой форме(основной) (среда Delphi 7). Например когда происходит событие на основной форме(нажатие кнопки или нажатие какой-нибудь компоненты) - неосновная форма должна выдвигаться с правой части основной формы, где будут находиться другие компоненты, а когда событие происходит еще раз - прятаться за ней. Вот примерная схема:

Эту часть задачи я осуществил. Теперь мне нужно, чтобы при движении пользователем главной форме вместе с ней как бы передвигалась и дополнительная. Например пользователь нажал кнопку, или сделал другое событие, дополнительная форма выдвинулась, пользователь начал двигать главной формой, и по идее вместе с ней должна двигаться и дополнительная. Пробовал программировать события OnDragDrop и OnDragOver, но ничего не получается. Помогите, пожалуйста, советом, идеей, как это лучше сделать. Заранее благодарен.

[DIgorevich]

Используйте поиск по форуму "Липкие окна" - примеров куча.

[DomiNick]

Пробовал программировать события OnDragDrop и OnDragOver

Они тут ни при чём...
Нужно ловить когда главному окну придёт сообщение о том что форму перетаскивают (WM_MOVE) и корректировать координаты второй...

[DelphiGman]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Posc(var Msg: TWMWINDOWPOSCHANGING);
  message WM_WINDOWPOSCHANGING;
  end;

var
  Form1: TForm1; X,Y:integer;

implementation

uses Unit2;

{$R *.dfm}
procedure Tform1.Posc(var Msg: TWMWINDOWPOSCHANGING);
begin  if timer1.enabled=false then 
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

form2.left:=form1.Left+20;
form2.Top:=form1.Top;
timer1.Enabled:=false;
end;

end.

В таймере можно нарисовать, например, плавный подлёт формы. Задержка на таймере - небольшая.

[DomiNick]

Эм... Зачем таймер-то? о__О
И думаю WM_MOVE подошел бы гораздо лучше...