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编程，打好基础。