menu no TWebBrowser

[Osvaldo1br 0]

Estou criando um Browser estilo internet explorer, e só ta faltando o popupmenu do twebbrowser, como ja devem saber o componente twebbrowser, ja vem com um popupmenu igual ao do internet explorer, que e cheio de item que eu não quero no meu browser tipo:imprimir, propriedade, codificação,criar atalho e outros. Tentei fazer o proprio, contendo somente:

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif salvar como: este eu consegui fazer

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif salvar imagem como: este eu não consegui fazer;

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif recortar:este eu não consegui fazer;

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif copiar:este eu não consegui fazer; esse foi mais ou menos pois tentei usar ele num site selecionei uma imagem + texto e tentei colar no word só o texto colou.

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif copiar atalho:este eu consegui fazer;

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif colar: este eu não consegui fazer;

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif selecionar tudo:este eu consegui fazer;

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif atualizar:este eu consegui fazer;

http://forum.imasters.com.br/public/style_emoticons/default/seta.gif adicionar ao favoritos: este eu não consegui fazer;

 

obs.:Eu quero que eles tenha as mesmas função do popupmenu do internet explorer.

Se alguem souber como eu termino meu popupmenu ou como retirar os item que eu não quero do popupmenu do twebbrowser e poder me ajudar eu agradeceria. Estou usando Borland Developer Studio 2006.

[Gilnet 0]

Olá,Estou fazendo um aplicativo com a mesma ideia do seu porém, gostaria de saber como você habilitou o menu pop up no tBrowser.Obrigado.

[Osvaldo1br 0]

Em "Uses" coloca "AppEvnts"insira o componente TApplicationEvents da paleta Additionale insira essa procedure, lembrando que você deve trocar TMainform pelo mome de sua form(ex.: TForm1 para Form1 ,TForm2 para Form2):procedure TMainform.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var Pos: TPoint;begin if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then begin if IsChild(FWebbrowser.Handle, Msg.hwnd) then begin // Abre o Popupmenu Handled := True; GetCursorPos(Pos); PopupMenu.PopUp(pos.X,pos.Y); end; end;end;

[Gilnet 0]

Olá,Obrigado pela dica, porém, está dando erro na linha If(IsChild(FWebbrowser.Handle, Msg.hwnd)) veja o código abaixo:uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, Menus, ExtCtrls, ComCtrls, ToolWin, AppEvnts;type TfrmBrowser = class(TForm) ApplicationEvents: TApplicationEvents; procedure ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean); private { Private declarations } public { Public declarations } end;var frmBrowser: TfrmBrowser;implementation{$R *.dfm}procedure TfrmBrowser.ApplicationEventsMessage(var Msg: tagMSG;var Handled: Boolean);var Pos: TPoint;begin If(Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) Then begin If(IsChild(FWebbrowser.Handle, Msg.hwnd)) Then begin // Abre o Popupmenu Handled := True; GetCursorPos(Pos); PopupMenu.PopUp(pos.X,pos.Y); end; end;end;[Pascal Error] uBrowser.pas(62): E2003 Undeclared identifier: 'FWebbrowser'Estou usando Delphi 2006 Developer Studio.