怎样用WebBrowser控件打开网页,始终不会调用默认浏览器?
我点击WebBrowser控件打开的网页中的元素后,往往调用默认IE浏览器打开新页面,
怎么保证总在WebBrowser控件中打开新页面?
[解决办法]
[code=Delphi(Pascal)][/WebBrowser1，WebBrowser2
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := WebBrowser2.Application;
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
WebBrowser1.Navigate(string(URL));
Cancel := True;
end;]
