如何在我們使用Flash時禁用WebBrowser中的右鍵單擊！ （Delphi）

Question

當我使用WebBrowser瀏覽Flash文件時，如何禁用Flash播放器的菜單？

Answer 1

發送到WebBrowser的所有消息也會通過Delphi應用程序傳遞，因此，通過使用TApplicationEvents組件並檢查WebBrowser的句柄上的OnMessage事件中的右鍵單擊事件或其任何子節點上的右鍵單擊事件處理（使用IsChild）並設置處理，你應該能夠阻止它。

的代碼看起來是這樣的

procedure TMyForm.ApplicationEvents1Message(var Msg: tagMSG; 
    var Handled: Boolean); 
begin 
    if (Msg.message=WM_RBUTTONDOWN) and IsChild(WebBrowser1.Handle,Msg.hwnd) then 
    begin 
    PopupMenu1.Popup(Msg.pt.X,Msg.pt.Y); 
    Handled:=true; 
    end; 
end;