WebBrowser Sorunu

[__TECH__]

Slm Arkadaslar Programımda Web Browser Kullanıyorum Browser İcersinde Mouse Sagtıklamayı İptal Etmek istiyorum bununasıl yapabılırım_?

[oklawa]

Selam.

http://www.swissdelphicenter.ch/torry/s ... hp?id=2359

Yardımcı olacaktır..

[__TECH__]

Slm Hocam Yardımınız İçin Tşk.
Adreste Asagıdaki Kod yazıyor Ama Nasıl Kullanıcagımı Çözemedim Ben Ana Forma Delphide İnternet Bolumunden Bir Web Browser Yerleştirdim Edit1 İçerisine http://www.google.com yazıp asagıdaki gibi kullanıyorum
==============================================

procedure TForm1.GotoPage(ReqUrl: string);
begin
WebBrowser1.Navigate (ReqUrl, EmptyParam, EmptyParam,
EmptyParam, EmptyParam);
end;
===============================================
Ve Butona Basılınca edit1 deki adresi browser içerisinde goruyorum ;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
gotopage(edit1.text);
end;
=============================================

Burda Yapmak İstedigim Browser içerisinde mousenin sağtıklamasının calısmasını istemiyorum sagtıklama olmasın

Yukardaki adreste asagıdakikod var ama bunu kendi formumda nasıl kullanabilirim _?

// Put a TApplicationEvents component on your form and assign a OnMessage event handler:

procedure TfrmMyBrowser.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then
begin
if IsChild(Webbrowser1.Handle, Msg.hwnd) then
begin
// Show your own Popupor or whatever you want here
Handled := True;
end;
end;
end;

[__TECH__]

Arkadaslar Sorun Çözüldü ApplicationEvents nesnesindeki isim degisikliginden kaynaklanyormus ilginize teşekkurler fakat webbrovser icerisinde acılan sayfanın asagı ve yukarı oynamaması için yani mouse ile orta top asagı yukarı yaptıgımda sayfada asagı ve yukarı normal olarak acılıyor bunu nasıl iptal edebilirim _?