delphi Windows 编程[4] - 学习窗体生成的过程四-木庄网络博客

本文整理自网络，侵删。
 Windows 编程[4] - 学习窗体生成的过程四
现在需要复习一下系统与窗口的消息机制:

一个程序会有一个或多个线程, 系统有一个线程队列(就是个链表)管理所有这些线程, 并为每个线程建立一个消息队列.

当消息产生时(譬如点击了窗口), 系统会把该消息放到窗口所在的消息队列, 等待窗口处理.

窗口应该时刻待命, 准备从所在的线程队列中取出消息并处理!

从消息队列中取出消息, 一般用 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;
delphi Windows 编程[4] - 学习窗体生成的过程四

相关推荐

评论
