uses MSHTML,ActiveX;
先Navigate:
WebBrowser1.Navigate('http://localhost');
- procedure TForm1.Button1Click(Sender: TObject);
- var
- doc:IHTMLDocument2;
- begin
- //(WebBrowser1.Document as IHTMLDocument2).Set_designMode('On');
- //(WebBrowser1.Document as IHTMLDocument2).designMode := 'On';
- doc := WebBrowser1.Document as IHTMLDocument2;
- doc.designMode := 'ON';
- end;