線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:3225
推到 Plurk!
推到 Facebook!

[推薦]攔截Windows Message

 
axsoft
版主


發表:681
回覆:1056
積分:969
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-07-25 10:43:29 IP:61.218.xxx.xxx 未訂閱

攔截Windows Message

浙江省溫州市統計局 倪建春 ----Borland C Builder的API後門 資料來源:http://go5.163.com/yarrows/tips/cbc_13.htm ------ 引子 C Builder不愧為Borland公司的優秀產品,用它來開發Windows程序非常快捷高效,但在編程過程中你也會發現它的一些限制性,讓你無法實現自己的想法。比如你無法在修改表單的系統菜單﹔比如使用跟蹤欄時,你找不到StartTrack和EndTrack事件,而偏偏你的程序需要這兩個事件。Windows API編程中,你就不會有這些麻煩,只需處理一下WM_SYSCOMMAND和WM_HSCROLL(或WM_VSCROLL)消息,就能實現上述功能。Windows API的缺點是編程十分麻煩,太多的時間要耗在細節上面,但它的功能卻是最強大的。C Builder的VCL在功能上只是它的一個子集,因為VCL是在API的基礎上封裝的,封裝時舍棄了一些不常用到的功能。但是程序員的想象力沒有被封裝,他們總懷著更大的熱情去實現別出心裁的想法,修改系統菜單和給跟蹤欄增加StartTrack和EndTrack事件只是其中的小把戲而已。可是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)取得系統菜單句柄﹔ 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。 時間就是金錢---[ 發問前請先找找舊文章]
系統時間:2024-03-28 16:46:03
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!