怎么在webbrowser中显示字串'<head><title>标题</title></head>'

不保存成html在程序中能直接显示吗？
记得用其他语言时能够直接复制显示，网上找了一下都是nagigate打开.html

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      s: string;
    procedure  WB_LoadHTML(WebBrowser:  TWebBrowser;  HTMLCode:  string);    
    var    
       sl:  TStringList;    
       ms:  TMemoryStream;    
    begin
       WebBrowser.Navigate('about:blank');    
       if  Assigned(WebBrowser.Document)  then    
       begin    
           sl  :=  TStringList.Create;    
           try    
               ms  :=  TMemoryStream.Create;    
               try    
                   sl.Text  :=  HTMLCode;    
                   sl.SaveToStream(ms);
                   ms.Seek(0,  0);    
                   (WebBrowser.Document  as  IPersistStreamInit).Load(TStreamAdapter.Create(ms));
                finally
                   ms.Free;    
               end;    
           finally    
               sl.Free;
           end;    
       end;    
    end;
    begin
      s := '<font color=red>test</font>';
      WB_LoadHTML(WebBrowser1, s);
    end;