delphi html编辑器,德尔福 - 如何使用Delphi制作WYSIWYG HTML编辑器？

来自bsalsa.com的EmbeddedWB Web浏览器组件提供了一些工具。

您放置一个EmbeddedWB(Web浏览器)控件(窗口)以显示诸如网站的HTML。 然后，您将一个EditDesigner组件放在窗体上，并将其链接到Object Inspector - Properties中的EmbeddedWB控件。

使用EditDesigner，您可以将WebBrowser设置为编辑模式并进行一些基本编辑，例如插入或删除文本或设置某些字体属性。但不是一个完整的编辑器。

不要绝望，这个包是MSHTML编辑器的完整包装。对EditDesigner单元的轻微添加使您可以完全访问MSHTML execCommand接口。

原始代码：

procedure ExecCommand(Command: Widestring; ShowUI: Boolean; Value: Integer);

begin

if Assigned(FEmbeddedWB) then

GetHTMLDoc2FromWB.execCommand(Command, showUI, Value);

end;

你会看到，在EditDesigner.pas此过程只接受并解析值作为整数到HTMLDoc.execCommand。这就是你需要的一些命令，通常只需要0作为值。但是许多命令需要字符串信息作为值，例如更改Fontname。 HTMLDoc.execCommand实际上会接受Variant作为Value，所以我向EditDesigner.pas添加了另一个过程，如下所示，以便在MSHTML编辑器接近完全访问的情况下(如果您知道要发送的命令)。

procedure TEditDesigner.ExecCommandEx(Command: Widestring; ShowUI: Boolean; Value: OleVariant);

begin

if Assigned(FEmbeddedWB) then

GetHTMLDoc2FromWB.execCommand(Command, showUI, Value);

end;

当你需要发送一个更高级的命令编辑器访问该程序。 这将改变字体颜色。

procedure TfrmComposer.actFontColourExecute(Sender: TObject);

begin

if dlgColorDialog.Execute then

begin

EditDesigner1.ExecCommandEx('foreColor',False,dlgColorDialog.Color);

end;

EditDesigner1.EmbeddedWB.SetFocus;

end;

这将改变字体...

procedure TfrmComposer.JvFontComboBoxChange(Sender: TObject);

begin

EDewbMessageBody.ExecCommandEx('fontname',False,JvFontComboBox.FontName);

EDewbMessageBody.EmbeddedWB.SetFocus;

end;

还有一个EditDesigner1.InsertHTML过程，将允许你插入任何你想要的。

快乐Delphiin';)