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

Question

问个问题, 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地址栏

Answer 1

处理WM_CANCELMODE消息 如何处理  在那里 不太明白

Answer 2

TIEListBox，窗口，句柄，Windows编程，打好基础。