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