listbox 如何能够接收到系统的 active 消息 并处理

listbox 怎么能够接收到系统的 active 消息 并处理
问个问题, listbox 怎么能够接收到系统的 active 消息 并处理

procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;


procedure TIEListBox.WMActivate(var Message: TWMActivate);
begin
  if Message.Active = WA_INACTIVE then
  Self.Visible := False;
end;

这个代码不起作用

我的目的是当用户在 窗体上任何位置点击后， listbox自动隐藏 

使用kill_focus消息可以处理，但是只能别的控件获取到焦点的时候， 如果点击窗体就不行了

我想用edit+ listbox 做一个自定义的ie地址栏


------解决方案--------------------
呵呵，你的消息沒有處理東西啊！怎麽能有動作
------解决方案--------------------
重载Form的WndProc处理WM_ACTIVE
------解决方案--------------------
因爲控件收到的消息會被窗體過濾到一部分，所以必須把消息加上才能收到。
------解决方案--------------------
处理WM_CANCELMODE消息
------解决方案--------------------
TIEListBox，窗口，句柄，Windows编程，打好基础。