zoukankan      html  css  js  c++  java
  • webbrower在同一个窗口打开新增窗口

    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.

  • 相关阅读:
    1301班 github安装及账户注册
    对于软件工程课程的疑问
    LeetCode50:Pow
    LeetCode49:字母异位词分组
    LeetCode46:全排列
    LeetCode38:外观数列
    LeetCode:有效的数独
    LeetCode34:在排序数组中查找元素的第一个位置和最后一个位置
    LeetCode33:搜索旋转排序数组
    LeetCode29:两数相除
  • 原文地址:https://www.cnblogs.com/hssbsw/p/2039839.html
Copyright © 2011-2022 走看看