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

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.


//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


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.