procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurrentWB: TWebBrowser;
begin
CurrentWB := Sender as TWebBrowser;
(CurrentWB.Document as IHTMLDocument2).DesignMode := 'On';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.sina.com')
end;
