如何捕獲VCL沒有處理的Windows訊息

 ---- C++
Builer的VCL提供了對大多數Windows訊息的處理機制，這對於一般應用程式是足夠了，但VCL也不是無所不包的，對於那些VCL沒有處理的
Windows訊息，在需要時如何進行捕獲呢？C++
Builder採用了訊息映像表機制，通過訊息映像表將特定的Windows訊息與代碼中的函數聯絡起來，當視窗捕獲到訊息時就會調用這個函數，這其實和
事件控制代碼非常相似。

---- C++ Builder訊息映像表定義形式如下：

    BEGIN_MESSAGE_MAP
      MESSAGE_HANDLER(< message >,
< message structure >,< message handler >)
      ……
      MESSAGE_HANDLER(< message >,
< message structure >,< message handler >)
    END_MESSAGE_MAP(ClassName)

---- ClassName是基礎類名，message參數是要捕獲的Windows訊息，message
structure參數用於傳遞VCL剖析訊息後用於傳遞參數的訊息剖析結構名，裡麵包含處理訊息時所需要的全部參數，不同的訊息其訊息剖析結構是不同
的，一般性的訊息剖析結構定義如下：
struct Tmessage
{
  unsigned int Msg;//Windows訊息
  long Wparam;
  long Lparam;
  long Result;
}

---- 這裡關鍵是Result資料成員，它用於設定處理訊息後的傳回值，程式可以根據不同的傳回值進行相應的處理。message handler參數是對訊息進行處理的函數名稱。
---- 俗話說：千言不如一圖。下面就用一個例子具體說明一下，讓我們來拖動一個無標題的視窗，實現的原理是通過捕獲WM_NCHITTEST訊息，在按一下滑鼠表單的客戶區時發送訊息，讓Windows認為是個表單的標題列上。

----
建立一個新工程，將單元檔案儲存為mainform.cpp，工程檔案儲存為nocaption.bpr。首先得建立一個無標題列的表單，將Form1的
BorderIcons集合設為空白，這就刪除了視窗的系統功能表、最大化和最小化按鈕，將BorderStyle屬性設為bsDialog。注意在設計時創
建的所有C++
Builder表單都會有一個標題列，你並不能象VB中那樣簡單地通過將Form1的Caption屬性設為空白來得到一個無標題列表單，你必須在
TForm的衍生類別中重載CreateParams函數，去除相應的視窗標識位，在運行時刪去表單的標題列。開啟mainform.h檔案，在
private段增加CreateParams的原型：
// 本文轉自 C++Builder研究 - http://www.ccrun.com/article.asp?i=226&d=8vzf36
void __fastcall CreateParams(TCreateParams& Params);
TCreateParams結構包含了建立表單的各種參數，
在這裡我們要屏蔽掉WS_CAPTION位。
在mainform.cpp中增加如下代碼：
void __fastcall TForm1::CreateParams(TCreateParams& Params)
{
  TForm::CreateParams(Params);//先調用基礎類中的成員函數
  Params.Style &=~WS_CAPTION;
}

---- 下面建立訊息映像表，對WM_NCHITTEST訊息進行捕獲，在mainform.h的public段輸入代碼：
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER
(WM_NCHITTEST,Tmessage,WMNchitTest)
END_MESSAGE_MAP(TForm)

---- WM_NCHITTEST訊息名稱為＂非客戶區點擊測試＂，它優先於所有其它的客戶區和非客戶區滑鼠訊息，Windows應用程式通常把這個訊息傳送給DefWindowProc,然後Windows用這個訊息產生基於滑鼠位置的所有其它滑鼠訊息。
---- 在private段加入訊息處理函數的聲明：

void __fastcall WMNchitTest(Tmessage &message);

---- 在mainform.cpp中輸入此函數的定義：
void __fastcall TForm1::WMNchitTest(Tmessage &message)
{
  if(GetAsyncKeyState(VK_LBUTTON)< 0)

---- message.Result=HTCAPTION; //如果滑鼠左鍵按下，就通知Windows滑鼠所在地區是標題列區，Windows就會按要求完成拖動操作。
  else
message.Result=HTCLIENT;
}

---- 這裡用Windows
API函數GetAsyncKeyState來即時檢查滑鼠按鍵的狀態，通過檢測虛擬鍵碼VK_LBUTTON的高位是否被置位來探測滑鼠動作，如果按下
滑鼠左鍵，此鍵碼的高位被置1，此時GetAsyncKeyState函數將返回一個負數。
---- 按F9編譯並運行程式，單擊表單任一位置就可以象單擊在標題列上一樣拖動表單了，這裡沒有給出結束程式啟動並執行機制，可以通過增加PopMenu來實現。

---- 以上代碼在C++ Builder3、Pwin98環境下編譯、運行通過。