很多人認為Delphi是一個RAD工具，包括我本人在上學的時候?qū)elphi也有偏見，現(xiàn)在走出了“象牙塔”，涉及的面廣了，遇到的問題多了，慢慢地也有了自己的一點心得體會。其實,Delphi是基于Object Pascal 語言的開發(fā)工具，也就是說Delphi本質(zhì)上是一種語言工具，并且是真正的面向?qū)ο蟮?。下面我舉的例子就是用Delphi實現(xiàn)的一個托盤小
程序。程序短小精悍，脈絡(luò)分明，我將對關(guān)鍵部分進行詳細講解。就象候俊杰先生把MFC一層一層地剝開一樣，今天我也來一次“庖丁解牛”。
在Delphi中涉及到系統(tǒng)編程的方面毫無例外都要調(diào)用API函數(shù)，在ShellAPI.pas單元中有要用到的API函數(shù)的原型。
實戰(zhàn)演練：
一．新建一個應用程序：File->New Applicaton 在Interface部分定義一個消息常量：const WM_NID=WM_USER+1000; 系統(tǒng)規(guī)定從WM_USER開始為用戶自定義消息。
二．定義一個全局變量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一個變量，整個程序基本上是圍著這個變量在轉(zhuǎn)。TNotifyIconData是一個記錄類型，按住Ctrl鍵，在TNotifyIconData 雙擊即進入ShellAPI.pas單元。（注：在Delphi中，這是一個非常好的對源代碼進行分析的方法，源代碼說明一切，你要想知道程序背后的內(nèi)幕，最好的方法就是分析源代碼！）此時出現(xiàn)了以下賦值語句：
TNotifyIconData = TNotifyIconDataA，這個意思很明顯，就是說TNotifyIconData和TNotifyIconDataA是同種數(shù)據(jù)類型，接著往下看有：
TNotifyIconDataA = _NOTIFYICONDATAA，意思與剛才的一樣，再往下看：
type
_NOTIFYICONDATAA = record
cbSize: DWORD;
Wnd: HWND;
uID: UINT;
uFlags: UINT;
uCallbackMessage: UINT;
hIcon: HICON;
szTip: array [0..63] of AnsiChar;
end; |
這可真是“千呼萬喚始出來，猶抱琵琶半遮面”?，F(xiàn)在大家很清楚了，我們剛才定義的全局變量NotifyIcon其實是一個包含有7個成分的記錄類型變量，就相當于C/C++中的結(jié)構(gòu)體變量（C/C++的程序員應該是再熟悉不過了）。下面我們逐個來解釋記錄類型中的7個部分各有什么功能。
1> cbSize就是你定義的NotifyIcon變量的大小，用SizeOf(TNotifyIconData)可以取得，如果你是一個熟練的C/C++程序員，你應該不會陌生。在C/C++中，每當要為一個結(jié)構(gòu)體變量分配內(nèi)存的時候都要：通過 SizeOf(Struct type) 來獲知存放一個這樣的結(jié)構(gòu)體變量要多少內(nèi)存。
2> Wnd是一個句柄，你希望托盤程序產(chǎn)生的消息有哪個窗體來處理就讓Wnd指向那個窗體。
例如：你準備在任務欄的托盤小圖標上單擊時窗體是窗體在“顯示”和“隱藏”之間切換，則把Wnd指向主窗體。
3> uID:如果你要創(chuàng)建多個托盤小程序，那么怎么區(qū)分它們呢？就是靠這個ID號來區(qū)分。
4> uFlags是一個標志位，它表示當前所創(chuàng)建的托盤程序具有哪些性質(zhì)：
NIF_ICON 表示當前所設(shè)置的圖標（即hIcon的值）是有效的
NIF_MESSAGE 表示當前所設(shè)置的系統(tǒng)消息（即uCallBackMessage的值）是有效的
NIF_TIP 表示當前所設(shè)置的提示條（即szTip的值）是有效的。
5> uCallBackMessage這是7個部分里面最重要的一個。這里指定一個回調(diào)消息，也就是說這里定義一個消息名，當你單擊或者右擊托盤圖標的時候就會向你在Wnd所指向的窗體發(fā)送一個在uCallBackMessage中定義的消息名，然后你在程序中定義一個消息出來函數(shù)來處理這個消息。這樣就把Windows關(guān)于消息的整套流程都處理好了。
6> hIcon為托盤圖標的句柄，根據(jù)這個句柄你就可以增加、修改、刪除圖標。
7> szTip就是當你的鼠標放到任務欄托盤的小圖標上的時候彈出來的提示信息。
在這里我花了大量的筆墨介紹TNotifyIconData的內(nèi)幕，把這部分搞清楚了，后面的東西就順理成章了。
三．雙擊主窗體，進入FormCreate的代碼區(qū)域：
TForm1.FormCreate(Sender:TObject);
Begin
//NotifyIcon為全局變量，在程序的開頭已經(jīng)定義了
with NotifyIcon do
begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=Handle; //指向當前窗體Form1的句柄
uID:=1;
uFlags:=NIM_ICON or NIM_MESSAGE or NIM_TIP;
uCallBackMessage:=WM_NID;
hIcon:=Application.Icon.Handle;
szTip:=”張家惡少”；
end;.
//把設(shè)置好的變量NotifyIcon加入到系統(tǒng)中以便處理
Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
End;
|
四．接下來就是定義一個消息處理函數(shù)：系統(tǒng)給窗體發(fā)來了一個消息，就由下面這個函數(shù)來處理。每個消息處理函數(shù)都是處理某一類消息的，大家仔細地看看下面函數(shù)體的定義和一般的函數(shù)定義有什么不一樣：消息處理函數(shù)要在后面加上消息的名稱，這樣當系統(tǒng)發(fā)來WM_NID消息時，就是自動觸發(fā)WMNID消息處理函數(shù)。
procedure WMNID(var msg:TMessage);message WM_NID;
begin
case msg.LParam of
WM_LBUTTONUp; Form1.Visible:=not Form1.Visible;
WM_RBUTTONUP: ShowMessage(‘您點擊的是右鍵’);
End;
End; |
好了，一個最簡單的程序誕生了，大家自己設(shè)置好自己喜歡的圖標.
Project->Options,選中Application頁面，在Icon項中加載自己喜歡的圖標，這樣程序運行時，在任務欄里顯示的就是你喜歡的圖標了。當你單擊圖標時，窗體Form1會在可見與不可見之間切換，也就是說單擊一下顯示，再單擊一下又隱藏。當你右擊圖標的時候會彈出一條消息：“你點擊的是右鍵”。
五．最后要記住在關(guān)閉應用程序的時候要釋放掉建立的托盤程序，否則會占用系統(tǒng)資源。
TForm1.FormDestroy(Sender:TObject);
Begin
Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
End; |
畢業(yè)快半年了，很多東西在學校總理解不了，認識不夠深刻；出到社會，接觸了不少道中朋友，受益非淺，每有心得體會，總想寫成文字，一來總結(jié)自己學的東西，二來和大家共同交流。
