Прилипшая форма

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    private
    { Private declarations }
    procedure WMMoving (var msg: TWMMoving); message WM_MOVING;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Left := Left + Width;
  Form2.Top := Top;
  Form2.Visible := True;
end;
 
procedure TForm1.WMMoving(var msg: TWMMoving);
begin
  Form2.Left := Left + Width;
  Form2.Top := Top;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
   Form2.Left := Left + Width;
  Form2.Top := Top;
end;
 
end.

var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;
 
procedure TForm1.UpdateChildPos;
begin
  if Assigned(Form2) then
  if Form3.Visible then
  begin
    Form2.Left := Left;
    Form2.Top := Top + Height;
  end;
end;
 
procedure TForm1.UpdateChildRect(const Rect: TRect);
begin
  if Assigned(Form3) then
  if Form3.Visible then
  begin
    Form2.Left := Rect.Left;
    Form2.Top := Rect.Top + Height;
  end;
end;
 
procedure TForm1.WMMove(var Message: TWmMove);
begin
  inherited;
  UpdateChildPos;
end;
 
procedure TForm1.WMMoving(var Message: TMessage);
begin
  inherited;
  if Form2.CheckBox1.Checked then
    UpdateChildRect (PRect(Message.LParam)^);
end;
 
end.