]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 重载 虚拟方法 wndproc 即可！ 重 载 虚 拟 方 法 wndproc 的 一 般 过 程 如 下：
procedure Tmyobject.wndproc(var message:Tmessage);
begin
{... 判 断 此 消 息 是 否 该 处 理 ..}
inherited wndproc(message);
{ 未 处 理 的 消 息 交 由 父 辈 wndproc 方 法 处 理 }
end;
由 此 可 以 看 出 在 wndproc 方 法 中 处 理 消 息 的 优 势 是 可 以 过 滤 整 个 范 围 内 的 消 息，而 不
必 为 每 个 消 息 指 定 一 个 处 理 句 柄， 事 实 上 Tcontrol 构 件中 就 是 利 用 它 来 过 滤 并 处 理 所 有 的 鼠 标
消 息 的