Kontextmenü des TWebbrowser überall...

[scp]

Wo hast du da das Popupmenü eingebaut? Dieser Code dient eigentlich nur zum verhindern des Popupmenüs im TWebbrowser.
Dein eigenes Menü muss ja dann irgendwo aufgerufen werden, z.B. so:

Delphi-Quellcode:

var
  P: TPoint;
//.......
          P := PMOUSEHOOKSTRUCT(lParam)^.pt;
          GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
          if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
          begin
            Result := HC_SKIP;
            Form1.WebBrowser1.PopupMenu.Popup(P.X, P.Y);
          end
          else
            Result := CallNextHookEx(HookID, nCode, wParam, lParam);
//.......