2010-11-20 23 views

答えて

4

Webブラウザーに送信されるすべてのメッセージもDelphiアプリケーションを通過するため、TApplicationEventsコンポーネントを使用して、Webブラウザーのハンドルまたはその子のOnMessageイベントで右クリックイベントを確認しますハンドル(IsChildを使用)を設定し、Handledを設定すると、ブロックすることができます。

コードは、あなたが私に例を与える可能性があり、応答のためにこのよう

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; 
+0

感謝を見ることができますか? – Kermia

+0

私の回答を更新して試してみました。 –

関連する問題