---- Borland C++ Builder的API後門
---- 引子
---- C++
Builder不愧為Borland公司的優秀產品,用它來開發Windows程式非常快捷高效,但在編程過程中你也會發現它的一些限制性,讓你無法實現
自己的想法。比如你無法在修改表單的系統功能表;比如使用跟蹤欄時,你找不到StartTrack和EndTrack事件,而偏偏你的程式需要這兩個事件。
Windows
API編程中,你就不會有這些麻煩,只需處理一下WM_SYSCOMMAND和WM_HSCROLL(或WM_VSCROLL)訊息,就能實現上述功能。
Windows API的缺點是編程十分麻煩,太多的時間要耗在細節上面,但它的功能卻是最強大的。C++
Builder的VCL在功能上只是它的一個子集,因為VCL是在API的基礎上封裝的,封裝時捨棄了一些不常用到的功能。但是程式員的想象力沒有被封
裝,他們總懷著更大的熱情去實現別出心裁的想法,修改系統功能表和給跟蹤欄增加StartTrack和ndTrack事件只是其中的小把戲而已。可是VCL
並沒有這些功能,怎麼辦?
---- 幸好,Borland公司沒有把路堵死,而是留了個後門——允許程式員自己攔截並處理Windows訊息,就象API編程一樣。於是,辦法有了...
---- 方法
---- 攔截Windows訊息需要以下幾步:
---- 在表單標頭檔內(如Unit1.h)
---- 1. 在類聲明中建立訊息映射表,把某條訊息的處理權交給自訂的訊息處理函數。
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(Windows訊息名,TMessage,訊息處理函數名)
MESSAGE_HANDLER(...)
END_MESSAGE_MAP(TForm)
---- 2. 在類聲明的private區內聲明訊息處理函數。
private: // User declarations
void __fastcall 訊息處理函數名(TMessage &Message);
在表單檔案內(如Unit1.cpp)
---- 3. 寫出訊息處理函數,在這裡實現你需要的功能。比如
void __fastcall MainForm::OnWMHScroll (TMessage &Message)
{
... // 在此加入你自己的代碼
TForm::Dispatch(&Message);
}
---- 解釋
---- 1. 關於TMessage
---- TMessage是VCL預定義的結構,定義如下:
struct TMessage
{
unsigned int Msg; //訊息
int WParam; //字參數
int LParam; //長字參數
int Result; //訊息結果
};
---- 2. 關於TForm::Dispatch(&Message)
---- 自訂的訊息處理函數末尾最好加一句TForm::Dispatch(&Message),這一句的作用是讓訊息繼續傳遞下去。如果沒有這一句,訊息將被完全攔截,VCL類可能由於得不到訊息而無法實現正常功能。
---- 執行個體一:修改系統功能表
---- 有一些程式,主視窗很小,菜單也沒有,如果想加入關於或設定對話方塊,最好的辦法是拿系統功能表開刀。Windows
API編程中,修改系統功能表與實現其他功能一樣,不太容易,也不會太難。但在C++
Builder中,表單類(TForm)沒有提供有關係統菜單的任何屬性與方法,實現其他功能易如反掌,而修改系統功能表似乎難於上青天。
---- 還好,Borland公司允許程式員自已處理Window訊息,於是機會來了!
一、用Window API函數修改系統功能表
假定表單名為MainForm,設定MainForm::OnCreate()函數:
1. 用GetSystemMenu(MainForm->Handle,false)取得系統功能表控制代碼;
// 本文轉自 C++Builder研究 - http://www.ccrun.com/article.asp?i=228&d=45041h
2. 用AppendMenu,DeleteMenu,ModifyMenu函數修改系統功能表,把新的ID號賦於自訂的功能表項目。
這時運行程式,可以看到系統功能表也被修改,但自訂的功能表項目卻不能被響應。
二、攔截WM_SYSCOMMAND訊息以響應自訂的功能表項目
在表單標頭檔內(如Unit1.h)
1. 在表單類定義末尾加入訊息響應表,取得WM_SYSCOMMAND訊息的處理權
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND,TMessage,OnWMSysCommand)
END_MESSAGE_MAP(TForm)
2. 在表單類定義的private區內加入訊息處理函式宣告
private: // User declarations
void __fastcall OnWMSysCommand(TMessage& Message);
在表單檔案內(如Unit1.h)
3. 寫出訊息響應函數
void __fastcall TForm1::OnWMSysCommand(TMessage& Message)
{
if(Message.WParam==ID_SysMenu_MyItem)
{
// Your Code Here, Do Something
}
TForm::Dispatch(&Message);
}
三、完整程式樣本
執行個體二:給跟蹤欄增加OnStartTrack和OnEndTrack事件
當跟蹤欄用於進度控制時,OnStartTrack和OnEndTrack很可能是你需要的事件。比如在控制多媒體播放進度的場合,當使用者移動滑塊時,你
需要OnStartTrack事件讓播放停止,需要OnEndTrack事件定位新的播放位置。但Borland公司沒有提供這兩個事件,我等編程愛好者
只好自力更生,打攔截Windows訊息的主意了。
一、攔截WM_HSCROLL訊息,給跟蹤欄增加OnStartTrack和OnEndTrack事件
在表單標頭檔內(如Unit.h)
1. 在表單類定義末尾加入訊息響應表,把WM_HSCROLL訊息處理權交給OnWMHScroll函數。
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_HSCROLL,TMessage,OnWMHScroll)
END_MESSAGE_MAP(TForm)
2. 在表單類定義的private區內加入OnWMHScroll函式宣告。
private: // User declarations
void __fastcall OnWMHScroll(TMessage &Message);
3. 在表單類定義的private區內加入StartTrack和EndTrack函式宣告。
private: // User declarations
void __fastcall TrackBar1StartTrack(TObject *Sender);
void __fastcall TrackBar1EndTrack(TObject *Sender);
在表單檔案內(如Unit.cpp)
4. 寫出OnWMHScroll函數,使它能根據訊息參數調用StartTrack和EndTrack函數,在實際意義上產生OnStartTrack和OnEndTrack事件。
5. 寫出StartTrack和EndTrack函數。
如果是垂直跟蹤欄,把上面的WM_HSCROLL改為WM_VSCROLL即可。
二、完整程式樣本
尾聲
Borland C++ Builder編程中,攔截Windows訊息是一項進階編程技術,能讓你盡量挖掘Windows的潛力,尤其讓曾用API編程的程式員感到心慰。攔截Windows訊息是API盡情發揮的舞台,當VCL不能為你做什麼時,請想起底層的API。