文档章节

使用 TWebBrowser 编辑网页

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 276
阅读 5
收藏 0

本例效果图:



代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Button1: TButton;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(WebBrowser1.OleObject.document.body.innerText);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  {这里是让整个页面可编辑, 也可以单独编辑某个元素}
  WebBrowser1.OleObject.document.body.contentEditable := CheckBox1.Checked;
  {有些浏览器需要这样设置: document.designMode = "On";}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel1.Align := alTop;
  CheckBox1.Anchors := [akTop, akRight];
  Button1.Anchors := CheckBox1.Anchors;
  CheckBox1.Caption := '编辑';
  Button1.Caption := '显示网页文本';

  WebBrowser1.Align := alClient;
  WebBrowser1.Navigate('http://www.cnblogs.com/del/archive/2009/04/16/1437417.html');
end;

end.

 
 
 
 
 

 

 

  

窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 385
  ClientWidth = 632
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = 8
    Top = 48
    Width = 563
    Height = 321
    TabOrder = 0
    ControlData = {
      4C000000303A00002D2100000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object Panel1: TPanel
    Left = 0
    Top = 1
    Width = 633
    Height = 32
    Caption = 'Panel1'
    TabOrder = 1
    object Button1: TButton
      Left = 440
      Top = 4
      Width = 99
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
      OnClick = Button1Click
    end
    object CheckBox1: TCheckBox
      Left = 552
      Top = 8
      Width = 73
      Height = 17
      Caption = 'CheckBox1'
      TabOrder = 1
      OnClick = CheckBox1Click
    end
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/04/17/1437951.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
delphi中Webbrowser

1.获得网页中变量值 htm中<script> var currID=123</script> 程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID 值得说明的是,变量可以是javascript定义的,也可......

任远
2015/05/08
0
0
南漂一卒/iBookmarkLet

iBookmarkLet Web 2.0 时代,各种互联网公司都想靠 网页浏览器 来圈地、圈钱,争相推出自己的原创/马甲浏览器,功能或简或繁,但总有些 实用功能缺这少那…… 而且即便内核相同,扩展插件的 ...

南漂一卒
2014/12/02
0
0
网页设计基础

网页设计基础 一、网站的概述 1、 网页与网站 浏览网页时在浏览器中看到的一个个页面就是网页,而多个相关的网页的集合就构成了一个网站。 举例:(搜狐网)(百度网)(优酷网)等等。 2、 浏览网...

MyDear宸
2017/05/12
0
0
php中使用sqlite,插入和网页展示的问题

网页上编辑包含单引号,直接插入sqlite会出错。 可以使用sqliteescapestring(输入值); //此项会把单引号替换成' 插入数据库 在网页展示时使用strreplace("'", "'", $entry['a']);将'转换成单......

阿采
2016/01/18
38
0
网页设计基础

网页设计基础 一、网站的概述 1、 网页与网站 浏览网页时在浏览器中看到的一个个页面就是网页,而多个相关的网页的集合就构成了一个网站。 举例:(搜狐网)(百度网)(优酷网)等等。 2、 浏览网...

MyDear宸
2017/05/15
0
0

没有更多内容

加载失败,请刷新页面

加载更多

IDE 插件新版本发布,开发效率 “biu” 起来了

近日,Cloud Toolkit正式推出了面向 IntelliJ 和 Eclipse 两个平台的新款插件,本文挑选了其中三个重大特性进行解读,点击文末官网跳转链接,可查看详细的版本说明。 本地应用一键部署到任何...

阿里云官方博客
24分钟前
1
0
我是怎样和Linux系统结缘并通过红帽RHCE认证的

我高考完当时就是选择的计算机科学与技术专业,上大学以后联想到的和计算机相关的就只有写代码,开发,网站,网页设计,就没有其他的了,当时学习写代码也都是在Windows上,什么C#、C++之类的...

linuxprobe16
26分钟前
0
0
Coding and Paper Letter(四十四)

资源整理。 1 Coding: 1.Rstudio2019年会“机器学习应用”的幻灯片,代码和数据 rstudio conf 2019 2.R语言包sparkxgb,Spark上XGBoost的R接口。 sparkxgb 3.自动SQL注入和数据库接管工具。 ...

胖胖雕
58分钟前
3
0
Ubuntu最新的主要操作系统放弃32位支持?

现在是2018年,2019年即将到来——64位处理器已经成为主流很长一段时间了。如果你仍然使用32位的电脑,那么是时候把它扔进垃圾箱了。 我为所有基于Linux的操作系统维护者感到自豪,他们有勇气...

Linux就该这么学
59分钟前
2
0
Fundebug发布Vue插件,简化BUG监控接入代码

摘要: 代码越短越好! 我们发布了fundebug-vue插件,可以简化Vue框架接入Fundebug的代码。 Vue如何接入Fundebug 1. 安装fundebug-javascript与fundebug-vue npm install fundebug-javascrip...

Fundebug
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部