Hi Patrick,
Sorry if this is out of date, just back from holiday...
I Redefined the OnMessage as below to solve this problem.
Seems to work fine.
in Form.Oncreate...
Application.OnMessage := AppMessage;
procedure TBrowseForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.message of
WM_RBUTTONDOWN:
begin
Handled := True;
end;
...
...
...
end ;
Regards,
Dave.
----- Original Message -----
From: Patrick Dunford <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Wednesday, 16 December 1998 22:29
Subject: [DUG]: Removing popup menu for TWebBrowser
>
>Does anyone know how to remove the default popup menu from the
>TWebBrowser_V1 component?
>
>It has a popup menu property but assigning a popup menu to this doesn't
>work.
>
>I also tried trapping WM_INITPOPUPMENU for the form but this isn't working,
>how do I trap this message specifically for the WebBrowser control? do I
>declare a descendant class with its own message handler for this message?
>
>============================================
>Views contained in this post are my personal opinions and unless otherwise
>stated not those of any organisation I am associated with.
>---------------------------------------------------------------------------
-
>----------
>Patrick Dunford, ChristChurch, NZ
>http://www.geocities.com/CapeCanaveral/Cockpit/5705/
>http://www.geocities.com/Heartland/Village/3405/
>http://homepages.ihug.co.nz/~pdunford/
>
>---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz