Как сделать липкие окошки???

[lionman]

Есть два окна. Как сделать чтобы при приближении окна2 к окну 1 окно два прилеплялось к окну один(Как в Winamp’e при приближении Плэй листа к основному окну). И как сделать так чтобы при перемещении окна 1 перемещалось окно2? Заранее спасибо!!!!

[Stilet]

Вот пример прилипания второго окна к первому если его придвигать справа от второго. Это только пример для общего развития поэтому нужна доработка.

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    procedure w(var w:TWMMove); message wm_Move;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.w(var w: TWMMove);
begin
 if abs(w.XPos-(form1.left+Form1.Width))<=100 then
  Left:=form1.left+Form1.Width;
end;

end.

Кстати в Делфе 200Х уже прилипание в свойствах есть.