| with webbrowser1.Document as IHTMLDocument2 dobegin// execCommand('underline', true, 1);//下划线execCommand('StrikeThrough', false, 1);//删除线execCommand('Bold', False, 1);execCommand('FontSize', False, 5);execCommand('ForeColor', False, 'blue');webbrowser1.ExecWB(OLECMDID_SAVE, OLECMDEXECOPT_DONTPROMPTUSER);end; |