Der Unrerschied zwischen meinem und deinem Code ist:
Du musst ein
begin nach der If-Zeile einfügen und ein
end; nach der Popup-Zeile.
Dann kannst du auch sicherheitshalber das
Result := HC_SKIP;
drin lassen, also so:
Delphi-Quellcode:
if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
begin
Result := HC_SKIP;
Form1.WebBrowser1.PopupMenu.Popup(P.X, P.Y);
end;