用webbrowser打开网页 有的是新页面打开
如何才能只用 1个webbrowser 实现本浏览器内打开我以前用的是 2个浏览器实现的 求 有没有一个webbrowser 就可以实现 新页面打开在本webbrowser?
如何才能只用 1个webbrowser 实现本浏览器内打开我以前用的是 2个浏览器实现的 求 有没有一个webbrowser 就可以实现 新页面打开在本webbrowser?
解决方案 »
- 大写金额转化成数字小写金额
- 动态创建数据源问题
- 如何使Edit1只能输入数字而不能输入别的字母或组合键啊?(问题够菜鸟级)
- ADOQUERY无法更新数据集
- ado在執行過程中,鼠標的形狀改變一下,執行完後又變過來,bde就是這樣的呀。
- 关于convert函数的问题?
- 公布两个分布式系统的源代码 (rabbit1125)---终于可以下载了!我CSDN上大朋友们,快来吧!!
- 怎么在Delphi中操作Exchange Server中的用户,请大家帮忙啊!
- ~~~求 <刘艺的delphi面向对象编程> 这本书~~~
- 如何判断某一天为星期几,并且到周末就把这一周的数据累计一下呢?
- delphi 2010 异或中文乱码
- 用户对某一个文件的权限问题
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure tempWBBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}
var
tempWB : TWebBrowser;procedure TForm1.Button1Click(Sender: TObject);
begin
Self.WebBrowser1.Navigate('http://www.google.com.hk');
end;procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
if not Assigned(tempWB) then tempWB := TWebBrowser.Create(Self);
tempWB.OnBeforeNavigate2 := Self.tempWBBeforeNavigate2;
ppDisp := tempWB.OleObject;
end;procedure TForm1.tempWBBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Self.WebBrowser1.Navigate(Url);
Cancel := True;
end;procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if Assigned(tempWB) then FreeAndNil(tempWB);
end;end.