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);
//.......