procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin if Url='窗体2的链接'then begin if assigned(form2) then application.CreateForm(Tform2,form2); form2.show; end;
end;
procedure TForm1.Button1Click(Sender: TObject); begin webbrowser1.Navigate('www.163.com'); end;
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if Url='窗体2的链接'then
begin
if assigned(form2) then
application.CreateForm(Tform2,form2);
form2.show;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('www.163.com');
end;
end.