两个窗体相对固定

[cbuilderlover]

大家好，我想做两个个窗体 像父子窗体那样，你任移动一个 另一个跟着移动，怎么做啊，

[|????|]

前几天刚结的贴:
http://topic.csdn.net/u/20101225/00/33f62b77-240c-4fc5-9f18-412b1c9b86ae.html?41316

[cbuilderlover]

那个是我的 感觉回答的都不在点，那个只能保持一个固定另一个 不能两个像别针似的， 移动任何一个都能引起另一个移动

[1cctv]

//Form1中
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(Messages::TMessage &Message)
{
   if(Message.Msg==WM_MOVING)
   {
      RECT *rect;
      rect=(RECT*)Message.LParam;
      if(Form2!=NULL || !IsZoomed(Form2->Handle))
         SetWindowPos(Form2->Handle,NULL, rect->right, rect->top, 0,0, SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE);
   }
   TForm::WndProc(Message);
}
//---------------------------------------------------------------------------




//Form2中
//---------------------------------------------------------------------------
void __fastcall TForm2::WndProc(Messages::TMessage &Message)
{
   if(Message.Msg==WM_MOVING)
   {
      RECT *rect;
      rect=(RECT*)Message.LParam;
      if(Form1!=NULL || !IsZoomed(Form1->Handle))
         SetWindowPos(Form1->Handle,NULL, rect->left-Form1->Width, rect->top, 0,0, SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE);
   }
   TForm::WndProc(Message);
}
//---------------------------------------------------------------------------

好用.

[lhy]

弄成一个窗体，假装成两个。

[|????|]

3楼的代码好用,图片也相当性感.不会是本人吧?