hsr///////////////////////////////////////////////////////
많이사용하는 WndProc의 Message를 가로채는 방법으로 해보았습니다.

Form2가 fsMDIChild라할때
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
  private
    { Private declarations }
    procedure WndProc( var Message : TMessage ); override;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
procedure TForm2.WndProc( var Message : TMessage );
begin
   if Message.Msg = WM_MOVE then begin
      Form2.Left := 0;
      Form2.Top  := 0;
   end;
   inherited;
end;
end.