网页编辑器 DIY

<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

                                                网页编辑器 DIY 

    DreamWeaver、FrontPage 等网页编辑制作工具我们早已耳熟能详。但是你有没有想过亲自动手制作一个我们自己的“网页编辑器”呢?

    Delphi 中自带的 WebBrowser 控件可以使我们梦想成真,而且实现起来一点也不困难。

    首先建立一个新工程,在 Form1 上拖一个 PageControl 控件,建立 2 个 TabSheet 即 TabSheet1 和 TabSheet2。再在 TabSheet1 上拖放 RichEdit1 控件,在 TabSheet2 上拖放 WebBrowser1 控件。这几个控件的基本属性设置为:
    TabSheet1:Caption='HTML代码'
    TabSheet1:Caption='预览'
    RichEdit1:Align=alClient
    WebBrowser1:Align=alClient

    RichEdit 用于编写 HTML 代码,WebBrowser 对代码进行可视化预览。程序在初始化阶段提供了一个基本的网页模板,我们可以在此基础上编写的 HTML 代码。程序的核心代码就是
    WebBrowser1.OleObject.Document.body.innerHTML :=sHTML;
这一句,如果再仔细发掘,肯定还能找出更有用的功能来。附图是本程序运行的示例截图。

    本程序在 Win98、Delphi5.0、IE5.0 环境下实现。程序的完整代码如下:
  unit Unit1;
  interface
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, ComCtrls;
  type
  TForm1 = class(TForm)
  PageControl1: TPageControl;
  TabSheet1: TTabSheet;
  TabSheet2: TTabSheet;
  WebBrowser1: TWebBrowser;
  RichEdit1: TRichEdit;
  procedure FormCreate(Sender: TObject);
  procedure TabSheet2Show(Sender: TObject);
  private { Private declarations }
  public { Public declarations }
  end;
  var
  Form1: TForm1;
  Const
  lf = #10; //换行符
  implementation
  {$R *.DFM}

  procedure TForm1.FormCreate(Sender: TObject);
  begin
  //设置窗口标题:
  Caption :='网页编辑器DIY';
  //初始化WebBrowser
  WebBrowser1.Navigate('about:blank');
  //产生网页代码模板:
  RichEdit1.Text :='<Html>'+lf
  +'<Headl><Title></Title><Headl>'+lf
  +'<Body>'+lf+lf
  +'</Body>'+lf
  +'</Html>';
  end;

  procedure TForm1.TabSheet2Show(Sender: TObject);
  var sHTML: string;
  begin
  sHTML :=RichEdit1.Text;
  WebBrowser1.OleObject.Document.body.innerHTML :=sHTML;
  end;
  end.
  ------------------------------------------------
    张庆 Email: zhangking@263.net
    http://soft.why100000.com

<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 728x15, 创建于 08-4-23MSDN */ google_ad_slot = "3624277373"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"><!-- google_ad_client = "pub-2947489232296736"; /* 160x600, 创建于 08-4-23MSDN */ google_ad_slot = "4367022601"; google_ad_width = 160; google_ad_height = 600; //--> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
阅读更多
个人分类: delphi
想对作者说点什么? 我来说一句

网页编辑器包含jquery框架

2011年06月14日 2.15MB 下载

超强网页编辑器网页编辑器

2011年06月16日 2.08MB 下载

在线网页编辑器使用说明

2009年03月10日 285KB 下载

nvu 网页编辑器

2007年10月22日 6.57MB 下载

网页编辑器ASP.NET

2008年06月07日 280KB 下载

最强大的网页编辑器(jsp版)

2009年12月26日 1.3MB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭