activeform包flash，如何屏蔽flash右键的about框(200分)

例如我的activeform包了个webbrowser，浏览到flash，此时我希望屏蔽flash右键的about框。
在一般application代码如下，但activeform中却不行。不知为何，请教。
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
/////////no popupmenu
// if Msg.message = WM_RBUTTONDOWN then Handled := True;
/////////show myself popupmenu
if Msg.message = WM_RBUTTONDOWN then
begin
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
Handled := True;
end;
end;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2002247

留下email，我发给你个例。

caovv@msn.com
thanks!

已发，查收！

收到。原来用钩子可以有这等好处！

接受答案了.