procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('d:\index.html');
end;
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if URL='d:\test' then
begin
form2:=TForm2.create(self);
form2.show;
end;
差不多这样就可以了。一个判断
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if url='form2' then
begin
form2:=Tform2.create(self);
form2.show;
end;
end;