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;