可以下载以下程序看效果: http://www.lkgarden.com/lfpsoft/MyMenu.zip以下为代码 1.加入一个ApplicationEvents,在OnMessage事件中加入以下代码: procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if IsChild(WebBrowser1.Handle, Msg.Hwnd) and ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then begin // dxBarPopupMenu.PopupFromCursorPos ;//在这里做你想做的事,比如显示你的菜单 Handled:=True; end; end;
http://www.lkgarden.com/lfpsoft/MyMenu.zip以下为代码
1.加入一个ApplicationEvents,在OnMessage事件中加入以下代码:
procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
// dxBarPopupMenu.PopupFromCursorPos ;//在这里做你想做的事,比如显示你的菜单
Handled:=True;
end;
end;