设置显示的网页,如果在本地则写全路径,放到窗体的create或show事件中
var str:string; begin str:=ExtractFilePath(Application.ExeName)+test.html ; //程序目录下的test.html页 webbrowser1.Navigate(str); End;
假设网页中有一个链接
控件的OnBeforeNavigate2事件
procedure TFmain.WebBrowser1BeforeNavigate2(Sender: TObject;
|
请发表评论