Ver Mensaje Individual
  #2  
Antiguo 20-03-2011
beginner01 beginner01 is offline
Miembro
NULL
 
Registrado: mar 2011
Ubicación: República Dominicana
Posts: 181
Reputación: 14
beginner01 Va por buen camino
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.
Responder Con Cita