Отменить контекстное меню в WebBrowser

Советы » Браузер » Отменить контекстное меню в WebBrowser

var

HookID: THandle; 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

TForm1.FormCreate(Sender: TObject); begin

HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId()); end

; procedure

TForm1.FormDestroy(Sender: TObject); begin

if

HookID <> 0 then

UnHookWindowsHookEx(HookID); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

Webbrowser1.Navigate('http://www.google.com'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com