zoukankan      html  css  js  c++  java
  • Delphi让网页只允许在WebBrowser里面打开

    [添加组件]

    添加 Internet->WebBrowser //显示网页

    [添加事件]

    鼠标点击WebBrowser组件,在Events事件选项框中找到.

    OnNewWindows2,OnStatusTextChange.双击添加事件.

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, OleCtrls, SHDocVw;
    
    type
      TForm1 = class(TForm)
        WebBrowser1: TWebBrowser;
        procedure FormCreate(Sender: TObject);
        procedure WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
          var Cancel: WordBool);
        procedure WebBrowser1StatusTextChange(Sender: TObject;
          const Text: WideString);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
      NewURL:String;
      //定义一个全局变量,让这个全局变量来获取最新的连接地址.
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
        WebBrowser1.Navigate('http://www.cnblogs.com/')
        //默认打开博客园
    end;
    
    procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
      var ppDisp: IDispatch; var Cancel: WordBool);
    begin
        Cancel:=true;
        //对话框,这个可以这么理解.
        WebBrowser1.Navigate(NewURL);
        //读取新的地址,并加载.
    end;
    
    procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
      const Text: WideString);
    begin
        NewURL:=text;
        //Url地址发生改变,存到全局变量当中.
    end;
    
    end.
  • 相关阅读:
    c#中枚举的使用
    WEB页面下载内容导出excel
    浏览器使用说明
    ChromiumWebBrowser 禁用右键菜单
    ExpressionHelp2
    安装T4环境
    打印功能
    操作图片
    软件开发中的框架概念和技术路线概念
    Grpc-Client引用Server的proto文件时Build Fail
  • 原文地址:https://www.cnblogs.com/windson/p/12521063.html
Copyright © 2011-2022 走看看