解决方法:实现WebBrowser1ShouldStartLoadWithRequest事件,过滤掉非http\https开头的url。
procedure TForm1.WebBrowser1ShouldStartLoadWithRequest(ASender: TObject;
const URL: string);
var
str: string;
begin
str := Copy(URL, 1, 4);
str := LowerCase(str);
// ShowMessage(str);
if str <> 'http' then
WebBrowser1.Stop;
end;
版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
原文链接:https://blog.csdn.net/qqww155/article/details/105862632