100分求稳定的Delphi HTML编辑器

tms组件里 tms memo里有 AdvHTMLMemoStyler1 AdvJSMemoStyler1不知道是不是你要的自己没实际用过

webbrowser设置成edit模式就可以了

tms组件麻烦我是想自己在webbrowser上做弄成edit模式但是问题是怎么弄？还请楼上指教谢谢
这里最好能实现文字加粗变色添加图片等便捷操作最终可以生成html字符串给予保存

那你得非常熟悉html语法才行啊。。不要什么都依赖三方控件

恩的确网络上也找了很多资料 webbrowser是可以自己弄成可以edit的就是得通过命令什么的
但是网上资料都不是很全还请教大家有没完整的demo简单案例拿来看看即可。

使用TWebBrowser控件，然后下载一个ckeditor3.0（这版本我使用感觉很好），按ckeditor匹配好之后，在webbrowser控件中navigate(cke的本地路径)，这就打开这个编辑器了。
另外，你还要涉及到往编辑器里加载HTML代码、取编辑后的HTML代码等，这个给分之后告诉你，或者你自己翻翻ck的文档。另，ck真做得太好了，真正的所见即所得编辑器，假如你从网络上复制一段带image链接的图文过来，它会自动给你下载到编辑器里并显示出来。强烈建议使用。

学习了先谢过大家
我最好能在TWebBrowser的基础上实现html的编辑
这里编辑只要简单的能插入图片字体加粗等操作即可。。
还请大家多多指教谢谢。。

我现在遇到个非常邪门的问题
(WebBrowser.Document as IHTMLDocument2).body.innerHTML := 'abc';
以上代码我直接赋值会报个内存错误
如果在代码前面加个 showmessage('');停顿下就正常
这是怎么回事？
发现TWebBrowser好像不太稳定有bugs
我delphi 版本是ex2的。请教啊。。啊。

上面问题已经解决 在(WebBrowser.Document as IHTMLDocument2).body.innerHTML := 'abc'前加
application.processmessage;即可
现在还有个问题
就是html源码给它赋值的时候第一次页面可以显示 如果赋值再赋一遍界面就变空白了不知道为什么还请指教
代码如下：
procedure TForm1.Button9Click(Sender: TObject);
var
 StringStream:TStringStream;
 SetNoteStr: string;
begin
 SetNoteStr := '<body bgcolor=222222 align=center> 谷歌 http://www.google.com';
 SetNoteStr := SetNoteStr + ' 实现webbrowser控件中显示动态html的程序代码';
 StringStream := TStringStream.Create(SetNoteStr);
 WebBrowser.Navigate('about:blank');
 try
 StringStream.Position := 0;
 (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(StringStream));
 finally
 StringStream.Free;
 end;
end;

问题解决差不多了但是还有个细节再请教大家下
我在webbrowser上添加完照片保存后打开滚动滚动条会报 Floating point division by zero 这个异常
可是我代码中没任何除法运算。。大家有没遇到过？请指教。。

问题解决差不多了但是还有个细节再请教大家下
我在webbrowser上添加完照片保存后打开滚动滚动条会报 Floating point division by zero 这个异常
可是我代码中没任何除法运算。。大家有没遇到过？请指教。。这个问题还是没找到原因大家有没遇到过现在奇怪的是有点击滚动条急报错如果界面打开到里面滚动下再出来点击滚动条就正常。

这个不是bug，在使用Document之前，你得确认它是否建立完全，这个需要判断ReadyState+IsBusy，还有在使用body之前，先判断它是否为nil，这是好习惯。

这个问题，你在 Navigate about:blank之后，来个循环，用ProcessMessage()好了，直到ReadyState is busy都之后，再走下面的代码。

这个问题倒是解决了
代码如下：
  Application.OnMessage := MessageHandler;
  while WebBrowser.Busy do
    Application.ProcessMessages;
  WebBrowser.Navigate('about:blank');  HTMLDocument2 := WebBrowser.Document as IHTMLDocument2;
  if not SameText(HTMLDocument2.designMode, 'on') then
    HTMLDocument2.designMode := 'on';这里感谢楼上的帮助  就是还有个邪门问没解决
我现在发现如果webbrowser内容比较少就正常  如果内容多右边有滚动条这时候进来点击滚动条
就会报“Floating point division by zero ” 这个错误而且报完界面被强制关闭掉不知道阁下有没遇到这个问题  这里我代码中没有任何除法操作只要webbrowser内容多有滚动条点击滚动条就会这样
还请指教谢谢。。

http://stackoverflow.com/questions/9472265/how-to-debug-division-by-zero-exception-in-internet-explorer好像是IE9的问题

在Navigate之前加下面的一个
Set8087CW(Default8087CW or $3F);
Set8087CW(Default8087CW or $0004);

调试易

100分求稳定的Delphi HTML编辑器

解决方案 »

100分 求稳定的Delphi HTML编辑器

解决方案 »

100分求稳定的Delphi HTML编辑器