Как отключить меню в WebBrowser?

← →
zac (2004-02-13 11:11) [0]

Кто-нибудь знает, как отключить вызов меню в WebBrowser, которое выскакивает, когда на нем нажимаешь правой кнопкой мыши?

← →
Den_K2004 © (2004-02-13 11:16) [1]

Можно посмотреть как это делается в TEmbeddedWB
http://www.euromind.com/iedelphi/
А еще лучше его и использовать.

← →
Zac (2004-02-13 11:24) [2]

Что-то я там не очень-то понял... :о(
Мне бы и WebBrowser подошел, только бы менюшку убрать... Я его вообще-то использую только для того, чтобы отображать локальные htm-страницы.

← →
zac (2004-02-13 15:24) [3]

Ну должно же это как-то легко отключаться!?

Вот код разбирайся
var
Form4: TForm4;
HookID: THandle;

implementation

uses Unit1;

{$R *.dfm}

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
szClassName: array[0..255] of Char;
const
ie_name = "Internet Explorer_Server";
begin
case nCode < 0 of
True:
Result := CallNextHookEx(HookID, nCode, wParam, lParam)
else
case wParam of
WM_RBUTTONDOWN,
WM_RBUTTONUP:
begin
GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
Result := HC_SKIP
else
Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end
else
Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end;
end;
end;

procedure TForm4.FormShow(Sender: TObject);
var Flags: OLEVariant;
begin
form4.Left:=1;
form4.Top:=form1.Height;
form4.Width:=form1.Width;
form4.Height:=screen.Height-form1.Height;
Flags := 0;
WebBrowser1.Navigate(WideString(form1.url), Flags, Flags, Flags, Flags);
end;

procedure TForm4.Panel1Click(Sender: TObject);
begin
close;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.flag_ex:=1;
form1.flag_block:=0;
end;

procedure TForm4.N2Click(Sender: TObject);
begin
Panel1Click(Sender);
end;

procedure TForm4.OnMyMessage(var Msg: TMessage);
var p: TPoint;
begin
GetCursorPos(P);
if (Msg.LParam=WM_RBUTTONDOWN) or (Msg.LParam=WM_RBUTTONUP) then
PopupMenu1.Popup(P.X, P.Y);
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
end;

procedure TForm4.FormDestroy(Sender: TObject);
begin
if HookID <> 0 then
UnHookWindowsHookEx(HookID);
end;

end.

Как отключить меню в WebBrowser? Найти похожие ветки