问个问题, listbox 怎么能够接收到系统的 active 消息 并处理 ( 积分: 100 )

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

建一个表，存入Listbox的Items，在窗体的Activate中加载Listbox的Items项

处理OnExit事件