BCB中实现拖拽Panel 改变位置和大小的代码

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <AppEvnts.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    TApplicationEvents *ApplicationEvents1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall Panel1MouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y);
private:    // User declarations
    void __fastcall MyWndProc(Messages::TMessage &Message);
    TWndMethod oldProc;
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

void __fastcall TForm1::MyWndProc(Messages::TMessage &Message)
{
    HWND hWnd = Panel1->Handle;
    switch(Message.Msg)
    {
        case WM_NCHITTEST:
        {
            TPoint pt;
            GetCursorPos(&pt);
            pt = Panel1->ScreenToClient(pt);
            TRect rcClient = Panel1->ClientRect;

            if (pt.x <=   && pt.y <= )//左上角,判断是不是在左上角，就是看当前坐标是不是即在左边拖动的范围内，又在上边拖动的范围内，其它角判断方法类似
            {
                Message.Result = HTTOPLEFT;
            }else if (pt.x>rcClient.right- && pt.y<rcClient.top+)//右上角
            {
                Message.Result = HTTOPRIGHT;

            }else if (pt.x<rcClient.left+ && pt.y>rcClient.bottom-)//左下角
            {
                Message.Result = HTBOTTOMLEFT;
            }else if (pt.x>rcClient.right- && pt.y>rcClient.bottom-)//右下角
            {
                Message.Result = HTBOTTOMRIGHT;

            }else if (pt.x<rcClient.left+)
            {
                Message.Result = HTLEFT;
            }else if (pt.x>rcClient.right-)
            {
                Message.Result = HTRIGHT;
            }else if (pt.y<rcClient.top+)
            {
                Message.Result = HTTOP;
            }
            else if (pt.y > rcClient.Bottom - )
            {
                Message.Result = HTBOTTOM;
            }
            else
            {
                oldProc(Message);
            }
        }
        break;
        case WM_SIZE:   //要让窗体能够随着缩放改变，要响应WM-SIZE消息
        {
            RECT rcClient = {  };
            ::GetClientRect(hWnd, &rcClient);
            InvalidateRect(hWnd,&rcClient,FALSE);
        }
        break;
        default:
            oldProc(Message);
    }
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    oldProc = Panel1->WindowProc;
    Panel1->WindowProc = MyWndProc;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    WORD SC_DragMove =   0xF012   ;
    ReleaseCapture();
    ((TWinControl*)Sender)->Perform(WM_SYSCOMMAND,SC_DragMove,);
}
//---------------------------------------------------------------------------