2010-11-20 27 views

cevap

4

WebBrowser'e gönderilen tüm iletiler, Delphi uygulamanızdan da geçerek, bir TApplicationEvents bileşeni kullanarak ve WebBrowser'ın Kulpunda veya kullanıcının herhangi birindeki OnMessage olayında sağ tıklama olayını kontrol ederek tutamaçları (IsChild kullanın) ve Handled'i ayarlayın, onu engelleyebilmeniz gerekir.

kod bana bir örnek verebilir, yanıt için böyle

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

Teşekkür görünebilir? – Kermia

+0

Cevabımı güncelledim, denedim ve çalışıyor ... –