DELPHI中WebBrowser的HTM文本内容变可修改

在WebBrowser中已显示本地d:\1.htm文件里的文字内容。。默认是不能修改只能看的，，如何通过Button的按钮单击以后使改显示的内容可以修改

解决方案 »

  1.   


    uses mshtml;procedure TForm1.FormCreate(Sender: TObject);
    begin
            wb1.Navigate('d:\mmm.htm');
    end;procedure TForm1.Button5Click(Sender: TObject);
    var
            doc: IHTMLDocument2;
            mDiv: IHTMLElement;
    begin
            doc := wb1.Document as IHTMLDocument2;
            mDiv := doc.all.item('id2',0) as IHTMLElement;
            mDiv.innerHTML := 'test';
    end;
    mmm.htm的内容<html>
    <head>
    </head>
    <body>
    <div id='id1'>ccc</div>
    <div id='id2'>abc</div>
    </body>
    </html>
      

  2.   

    我的目的是点按钮以后WebBrowser里显示的htm内容可修改编辑而不是语句实现修改
      

  3.   

    直接编辑修改，应该简单实现是不实际的，因为那样变成网页编辑器了，另加上是脚本语言，随意性强， fontpage, Dreamweaver 这样的都无法严谨识别。
      

  4.   

    embeddedwb有例子.不过有时会变形.编辑状态 hidden等会显示出来Demos\Various Demos\01 - EditDesigner_Demo
      

  5.   


    procedure TForm1.Button5Click(Sender: TObject);
    var
            doc: IHTMLDocument2; //uses MSHtml;
    begin
            doc := wb1.Document as IHTMLDocument2;
            doc.DesignMode := 'on';
    end;不好意思，原来看走题了，是这意思吧。
      

  6.   

      webbrowser1.Navigate('about:blank');
      while webbrowser1.busy do
        Application.ProcessMessages;
      (webbrowser1.Document as IHTMLDocument2).designMode :='on';