delphi html编辑器,求 delphi html编辑器 如图,该如何处理

当前位置:我的异常网» Delphi » 求 delphi html编辑器 如图,该如何处理

求 delphi html编辑器 如图,该如何处理

www.myexceptions.net  网友分享于：2014-07-03  浏览：0次

求 delphi html编辑器 如图

而且要 能获取到  html 源码  我好保存到 数据库  然后网页读取显示，三方控件也可以

------解决方案--------------------

我用过 MSHTML Editor， 是开源的，不过版本很老了，早就不更新了，升级到 XE5后就不用这个控件了，直接用TWebbower写了一个。

我也一直在找过可以编辑html的组件，一直没有找到合适，收费的也找过没有找到。

------解决方案--------------------

MSHTML Editor 别用了 楼上说的对

还是用twebrowser自己写一个

我这里就是自己写一个，是可以用的

代码如下： 我是写成frame 其他窗口调用

unit unt_fraHtmlEdit;

interface

uses

Classes, Controls, Forms, SysUtils, Windows, RzPanel, RzButton, Vcl.ComCtrls,

RzCmboBx, Dialogs, ExtDlgs, ImgList, OleCtrls, StdCtrls, ExtCtrls, MSHTML,

Vcl.Graphics, Winapi.Messages, SHDocVw, cxGraphics, cxControls, StrUtils,

cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit, cxTextEdit, cxMemo;

type

TfraHtmlEdit = class(TFrame)

RzToolbar: TRzToolbar;

ImageList: TImageList;

BtnBold: TRzToolButton;

BtnItalic: TRzToolButton;

BtnUnderline: TRzToolButton;

BtnFontColor: TRzToolButton;

BtnLeftJustify: TRzToolButton;

BtnCenterJustify: TRzToolButton;

BtnRightJustify: TRzToolButton;

BtnInsertImage: TRzToolButton;

BtnUndo: TRzToolButton;

BtnRedo: TRzToolButton;

RzSpacer4: TRzSpacer;

RzSpacer7: TRzSpacer;

RzFontComboBox: TRzFontComboBox;

cbFontSize: TRzComboBox;

RzSpacer8: TRzSpacer;

BtnStrikeThrough: TRzToolButton;

BtnSuperScript: TRzToolButton;

BtnSubScript: TRzToolButton;

BtnOutdent: TRzToolButton;

BtnIndent: TRzToolButton;

BtnInsertParagraph: TRzToolButton;

BtnCreateLink: TRzToolButton;

WebBrowser: TWebBrowser;

btnRefresh: TRzToolButton;

procedure BtnUnderlineClick(Sender: TObject);

procedure BtnUndoClick(Sender: TObject);

procedure BtnRedoClick(Sender: TObject);

procedure BtnLeftJustifyClick(Sender: TObject);

procedure BtnRightJustifyClick(Sender: TObject);

procedure BtnInsertImageClick(Sender: TObject);

procedure BtnFontColorClick(Sender: TObject);

procedure BtnBoldClick(Sender: TObject);

procedure BtnItalicClick(Sender: TObject);

procedure BtnStrikeThroughClick(Sender: TObject);

procedure RzFontComboBoxCloseUp(Sender: TObject);

procedure cbFontSizeCloseUp(Sender: TObject);

procedure BtnCenterJustifyClick(Sender: TObject);

procedure BtnSuperScriptClick(Sender: TObject);

procedure BtnSubScriptClick(Sender: TObject);

procedure BtnOutdentClick(Sender: TObject);

procedure BtnIndentClick(Sender: TObject);

procedure BtnInsertParagraphClick(Sender: TObject);

procedure BtnCreateLinkClick(Sender: TObject);

procedure btnRefreshClick(Sender: TObject);

private

{ Private declarations }

HTMLDocument2: IHTMLDocument2;

//WebBrowser上回车等按键事件处理

procedure MessageHandler(var Msg: TMsg; var Handled: Boolean);

function GetHTML: WideString;

procedure SetHTML(const Value: WideString);

function GetText: WideString;

procedure SetText(const Value: WideString);

function GetSource: string;

public

{ Public declarations }

//初始化操作，将WebBrowser置为可编辑状态， 在窗体OnCreate时执行

procedure Init;

//检查图片容量是否超过指定大小

function CheckImgSize(Size: Int64): Boolean; overload;

//检查图片容量是否超过指定大小

function CheckImgSize: Boolean; overload;

property HTML: WideString read GetHTML write SetHTML;

property Text: WideString read GetText write SetText;

property Source: string read GetSource;

文章评论