[转载]delphi HTML编辑器

quasiceo 2013-01-28

展开全文

//同意forgetter，做些补充～～
//当然要加字体颜色什么的还要另写代码～～
uses   MSHTML;

procedure   TForm1.Button1Click(Sender:   TObject);
begin
    with   WebBrowser1.Document   as   IHTMLDocument2   do   designMode   :=   'ON ';
end;

procedure   TForm1.FormCreate(Sender:   TObject);
begin
    WebBrowser1.Navigate( 'about:blank ');
end;

procedure   TForm1.Button2Click(Sender:   TObject);
begin
    with   WebBrowser1.Document   as   IHTMLDocument2   do
        with   selection.createRange   as   IHTMLTxtRange   do
            pasteHTML( ' <br> ');
end;

end.

直接写入HTML字符串到WebBrowser控件中

  uses   mshtml,   ActiveX,ComObj;

  procedure   TForm1.Button1Click(Sender:   TObject);
  var
      v:   Variant;
      HTMLDocument:   IHTMLDocument2;
  begin
      WebBrowser1.Navigate('about:blank');
      HTMLDocument   :=   WebBrowser1.Document   as   IHTMLDocument2;
      v   :=   VarArrayCreate([0,   0],   varVariant);
      v[0]   :=   '<HTML><h1>Test</h1><br>aaaaaa</html>';   //   Here's   your   HTML   string
      HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
      HTMLDocument.Close;
  end;

begin

WebBrowser1.Navigate('about:blank');
WebBrowser1.OleObject.Document.Writeln('ok');
end;