J Jimphon Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-13 #1 想实现用webbrowser显示一个文本框的内容,但不知怎么做
X xianjun Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-13 #2 WebBrowser1.Navigate('about:' + StringReplace(Memo1.Text, #13#10, '<br>', [rfReplaceAll])); //其他特殊符号（如< >等）也要先替换掉
WebBrowser1.Navigate('about:' + StringReplace(Memo1.Text, #13#10, '<br>', [rfReplaceAll])); //其他特殊符号（如< >等）也要先替换掉
J Jimphon Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-14 #3 这样是可以显示的,但是速度太慢了,有没有更好的办法?
X xianjun Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-14 #4 这样会不会快一些： uses MSHTML; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('about:blank'); end; procedure TForm1.Button1Click(Sender: TObject); begin IHTMLDocument2(WebBrowser1.Document).Body.InnerText := Memo1.Text; end;
这样会不会快一些： uses MSHTML; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('about:blank'); end; procedure TForm1.Button1Click(Sender: TObject); begin IHTMLDocument2(WebBrowser1.Document).Body.InnerText := Memo1.Text; end;
