如何屏蔽WebBrowser的右健菜单并加入自己设定的菜单(100分)

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #1

如题

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #2

ding[!]

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #3

TApplicationEvents，然后在他的OnMessage里面处理。

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #4

能说的具体点吗？或者把代码贴上来：0

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #5

var
Pos: TPoint;
begin
if Msg.message <> WM_RBUTTONUP then
Exit;
GetCursorPos(Pos);
if FindVCLWindow(Pos) = WebBrowser1 then
begin
Handled := True;
ShowMessage('');
end;

 

山

山泉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #6

IE：twebbrower:
procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
mPoint: TPoint;
begin
if IsChild(IE.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint);
PopupMenu1.Popup(mPoint.X, mPoint.Y);
Handled := True;
end;
end;

 

V

vampire100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #7

接受答案了.