delphi WebBrowser控件里编辑网页


本文整理自网络,侵删。

 代码文件:
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;type  TForm1 = class(TForm)    WebBrowser1: TWebBrowser;    Panel1: TPanel;    Button1: TButton;    CheckBox1: TCheckBox;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure CheckBox1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}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.180it.com');end;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;end;end.

相关阅读 >>

Delphi 之 定时器 (ttimer组件)

Delphi编辑环境

Delphi 右下角滑动消息窗口

Delphi整理二(object pascal语言)

Delphi getfileversion 获取文件版本

Delphi 调用wmi信息判断系统师傅安装杀毒软件

Delphi 设置webbrowser 代理服务器 与 useragent

Delphi 文件夹重命名

Delphi idsmtp控件发送邮件

idhttp控件的防止异常的处理

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...