Kontextmenü des TWebbrowser überall...

[horst]

danke...
ich kriege damit zwar aich das popupmenü zu sehen, leider aber immer noch über allen anderen komponenten auf meiner form.

Code:

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
  P: TPoint;
  szClassName: array[0..255] of Char;
const
  ie_name = 'Internet Explorer_Server';
begin
  case wParam of
    WM_RBUTTONDOWN,
      WM_RBUTTONUP:
      begin
        P := PMOUSEHOOKSTRUCT(lParam)^.pt;
        GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
        if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
          Result := HC_SKIP;
        Form1.WebBrowser1.PopupMenu.Popup(P.X, P.Y);
      end
  else
    Result := CallNextHookEx(HookIDb, nCode, wParam, lParam);
  end;
end;