通过窗口句柄截获消息

#include <vcl.h>
#pragma hdrstop

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

typedef LRESULT (CALLBACK* WNDPROC) (HWND, UINT, WPARAM, LPARAM);
WNDPROC g_pOldProc;

LRESULT CALLBACK NewWndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
   switch (message)
   {
    case WM_LBUTTONUP:
        ShowMessage("ok");
        break;
    default :
       //继续调用原来的窗口过程函数
        return CallWindowProc((FARPROC)g_pOldProc, hwnd, message, wParam, lParam);
    }

}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    g_pOldProc = (WNDPROC)GetWindowLong(this->Handle, GWL_WNDPROC);//获取旧的窗口过程函数指针保存
    SetWindowLong(this->Handle, GWL_WNDPROC, long(NewWndProc));//设置新的窗口过程函数
}
//---------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    SetWindowLong(this->Handle , GWL_WNDPROC, (long)g_pOldProc);//恢复旧的过程函数
}