如新润手露多少钱:webbrower在同一个窗口打开新增窗口

来源：百度文库编辑：偶看新闻时间：2024/04/16 22:26:40

unit webbrower;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    WebBrowser2: TWebBrowser;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
      var Cancel: WordBool);
    procedure WebBrowser2BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
uses Activex;

const
OLECMDID_OPTICAL_ZOOM = 63;

procedure TForm1.Button1Click(Sender: TObject);
begin

Webbrowser1.Navigate('http:\\www.hao123.com') ;
end;

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)); // 再指回WebBrowser1
Cancel := True
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TForm1.Button3Click(Sender: TObject);

var
ZoomIn: OleVariant;
begin
ZoomIn := 150;
//WebBrowser1.ExecWB(OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DODEFAULT, ZoomIn); // TWebBrowser 调用的是 IE, 放缩页面是在 IE7 之后才支持的.

WebBrowser1.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam); //打印页面设置

end;

initialization
oleinitialize(nil);
finalization
oleuninitialize;
end.

在同一个窗口中打开每一个文件夹怎样在同一个窗口打开网页怎样才能在同一个窗口中打开D盘？不能在同一个窗口下打开C.D.E盘怎么默认在同一个CAD窗口打开DWG文件怎样能打开C盘在同一个窗口文件夹在同一个窗口如何在同一个窗口中显示4个一打开的网页！我不能在同一个窗口打开文件夹了，谁能帮帮我？请问，怎样才可以在同一个窗口下打开文件夹呢？做网页时，链接总是在同一个窗口打开，怎样设置才能一点链接就可以在新窗口打开请问:forefox这个浏览器可以设置在同一个窗口打开多个页面吗?就像Maxthon一样好用我现在的IE点击任何网页总会在新窗口打开，怎样能让网页在同一个窗口打开呢？每当打开网页的时候都会自动弹出同一个地址的窗口上网时，同一个窗口前面还能打开，过会再打开时却显示任务栏显示同一个打开窗口的两个图标，请指教，谢谢！ webbrower控件参考资料傲游怎么设置打开网页始终在同一个页面傲游怎么设置打开网页始终在同一个页面?? 在Word中，同一个文档可以打开几次怎样在ie中重新打开窗口如何在原窗口打开网页? 在IE中,不能打开小窗口怎样设置文件夹在同一窗口打开