首页 > > 程序设计 > delphi >

网页编辑器 DIY

2008-04-10 02:57:29来源：互联网阅读 ()

网页编辑器 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

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有