截获不到WM_DEVICECHANGE消息(50分)

type
TfrmMain = class(TForm)
......
private
{ Private declarations }
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
public
{ Public declarations }
....
implementation
{$R *.DFM}
procedure TfrmMain.WMDeviceChange (var Msg: TMessage);
begin
ShowMessage('U口有插拔！');
end;

问题：
正常操作消息截获正常；
主窗口有菜单，当菜单下拉焦点在菜单上时，截获不到WM_DEVICECHANGE消息，如何解决？谢谢了

什么菜单，MainMenu还是其他，
Mainmenu没有问题

谢谢提醒，我单独做的程序就可以截获，估计是现场的程序加了什么东西，我好好看看源码