1 //1. Display Web page2 proceduretform2.formcreate (sender:tobject);3 begin4Panel1.align: =Altop;5Checkbox1.anchors: =[Aktop, akright];6Button1.anchors: =checkbox1.anchors;7Checkbox1.caption: ='Edit';8Button1.caption: ='Display Web page text';9Webbrowser1.align: =alclient;TenWebBrowser1.Navigate ('http://www.cnblogs.com/del/archive/2009/04/16/1437417.html'); One End; A - //2. Edit Web pages - procedureTform2.checkbox1click (sender:tobject); the begin - {This is where the entire page can be edited, or an element can be edited individually} -WebBrowser1.OleObject.document.body.contentEditable: =checkbox1.checked; - {Some browsers require this setting: Document.designmode = "on";} + End; - + //3. Display Web page text A procedureTform2.button1click (sender:tobject); at begin - ShowMessage (WebBrowser1.OleObject.document.body.innerText); - End;
WebBrowser Implementing editing Web pages