// 注：应把这个函数的声明加到TForm1的类声明中
　  void __fastcall TForm1::WndProc(TMessage &Msg)
　  {
　　　 TForm::WndProc(Msg);
　　　 switch(Msg.Msg)
　　　 {
　　　　  case WM_MOVING: // 处理移动事件
　　　　  {
　　　　　　 Do_WM_MOVING(this,Msg);
　　　　　　 break;
　　　　  }
　　　　  case WM_MOVE: // 处理移动事件
　　　　  {
　　　　　　 Do_WM_MOVE(this,Msg);
　　　　　　 break;
　　　　  }
　　　 }
　  }
　  void __fastcall TForm1::FormCreate(TObject *Sender)
　  {
　　　 // 建立磁性窗体特性类
　　　 CFormAttachStyle *AttachStyle=new CFormAttachStyle;
　　　 Tag=(int)AttachStyle;
　  }
　  void __fastcall TForm1::FormDestroy(TObject *Sender)
　  { // 删除CformAttachStyle实例
　　　 CFormAttachStyle *AttachStyle=(CFormAttachStyle *)Tag;
　　　 delete AttachStyle;
　  }
　  以下是主窗体处理WM_MOVING消息的代码：
　  void __fastcall TfmMain::WndProc(TMessage &Msg)
　  {
　　　 TForm::WndProc(Msg);
　　　 switch(Msg.Msg)
　　　 {
　　　　  case WM_MOVING: // 处理移动事件
　　　　  {
　　　　　　 AdjuctFormPos(this,(RECT *)(Msg.LParam));
　　　　　　 break;
　　　　  }
　　　 }
　  }

　　到此，实现磁性窗体的步骤基本上都介绍完了

(编辑:aniston)