网页编辑器 DIY

类别:Delphi 点击:0 评论:0 推荐:

                                                网页编辑器 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: [email protected]
    http://soft.why100000.com

本文地址:http://com.8s8s.com/it/it5260.htm