現在需要復習一下系統與窗口的消息機制:
一個程序會有一個或多個線程, 系統有一個線程隊列(就是個鏈表)管理所有這些線程, 並為每個線程建立一個消息隊列.
當消息產生時(譬如點擊了窗口), 系統會把該消息放到窗口所在的消息隊列, 等待窗口處理.
窗口應該時刻待命, 准備從所在的線程隊列中取出消息並處理!
從消息隊列中取出消息, 一般用 GetMessage 函數; 要隨時取出消息, 需要用個循環, 譬如:
while(GetMessage(Msg, 0, 0, 0)) do
begin
...
end;
取出消息怎麼處理? 用 DispatchMessage 函數將消息交給(前面提到的)窗口回調函數, 一般是這樣:
while(GetMessage(Msg, 0, 0, 0)) do
begin
TranslateMessage(Msg); {有些鍵盤消息需要用 TranslateMessage 函數並發出系統需要的更具體的鍵盤消息}
DispatchMessage(Msg);
end;
如果 GetMessage 函數不返回 0 ; 這個消息循環就是死循環, 什麼時候 GetMessage 可以返回 0 呢?
只有當 GetMessage 收到 WM_QUIT 消息時才返回 0.
我們可在需要的時候, 在回調函數中通過 PostQuitMessage 函數向線程的消息隊列中發送一條 WM_QUIT 消息, 以關閉線程.
PostQuitMessage 函數的參數是給應用程序的退出碼, PostQuitMessage(0) 中的 0 就是我們指定的退出碼, 它將作為 WM_QUIT 消息的 wParam 參數. 譬如:
function WndProc(wnd: HWND; msg: UINT; wParam: Integer; lParam: Integer): Integer; stdcall;
begin
Result := 0;
if msg = WM_DESTROY then
PostQuitMessage(0)
else
Result := DefWindowProc(wnd, msg, wParam, lParam);
end;