Trabajando con TWebBrowser

[fide_uci]

Hola amigos. Saben que cuando insertamos un TWebBrowser en un formulario y navegamos a una pagina, este la carga de lo mejor, pero si damos clic en ellas nos aparece un menu que trae Internet Explorer que se muestra. ¿Como podria eliminar ese menu y ademas asignarle uno mio propio con opciones como Pegar, Seleccionar todo y cosas asi.?

[beginner01]

saludos.
para agregar un popup perzonalizado agrega un componente llamado applicationevents y en el evento onmessage agregas este codigo

Código Delphi [-]
var
  popuppoint,P:TPoint;
   x,y:Integer;
begin
if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then
begin

  GetCursorPos(p);
 X:=P.X;
 Y:=P.Y;

if IsChild(webbrowser1.Handle, Msg.hwnd) then
begin



  Handled:=True;
// mostrar popupmenu en la posicion del cursor
   popuppoint.X:=x;
   popuppoint.Y:=y;
   popupmenu1.Popup(popuppoint.x,popuppoint.y);

end;

esto hara que se muestre tu propio popup.

las funciones de copiar y pegar serian algo asi.

Código Delphi [-]
//funciones para clibboard
//se agregan antes de end.
initialization
       OleInitialize(nil);
     
finalization

     OleUninitialize;

y para los botones de copiar y pegar se hace algo asi
ej. para copiar

Código Delphi [-]

try

wb1.ExecWB(OLECMDID_CUT, OLECMDEXECOPT_PROMPTUSER);
 except

end;
// OLECMDID_CUT lo cambias por lo que quieras hacer ej. OLECMDID_copy, OLECMDID_paste.

eso deberia funcionar espero te sirva fue provado en delphi 7.
espero de sirva.