WEB开发网
开发学院软件开发Delphi 设置TWebbroser内容 阅读

设置TWebbroser内容

 2010-12-06 07:20:55 来源:WEB开发网   
核心提示:我们可以使用navigate方法来使TWebbrowser显示指定的内容,也可以使用下面的方法来设置TWebbrowser的显示内容:var Doc: IHTMLDocument2;begin Doc := WebBrowser.Document as IHTMLDocument2; if Assigned(Do

我们可以使用navigate方法来使TWebbrowser显示指定的内容,也可以使用下面的方法来设置TWebbrowser的显示内容:

var
  Doc: IHTMLDocument2;
begin
  Doc := WebBrowser.Document as IHTMLDocument2;
  if Assigned(Doc) and Assigned(Doc.body) then
   Doc.body.innerHTML:=Content;

然而在使用中发现,TWebbrowser只有在窗体显示后才会激活,如果在一个已显示的窗口中这样来设置TWebbrowser的内容是没有问题的,但如果在窗口显示前,比如说在窗口的Create事件中这样来设置,则会出现一个“该文档内容已改变,保存修改吗”的对话框。

那么如果我们要在窗口显示后直接显示内容怎么办?

经测试,可以使用线程来解决这个问题:

创建一个简单的线程类:

TShowHTML = class(TThread)
  private
    { Private declarations }
    aWeb:TWebBrowser;
  protected
    procedure Execute; override;
    procedure SetContent;
  published
    property Web:TWebBrowser read aWeb write aWeb;
  end;

然后实现:

procedure TShowHTML.Execute;
begin
  { Place thread code here }
  Synchronize(SetContent);//异步执行,主要是为了访问窗口的可视控件的线程安全
end;

procedure TShowHTML.SetContent;
begin
  while aWeb.ReadyState <>READYSTATE_COMPLETE do
  begin
      Sleep(10);
      Application.ProcessMessages;
  end;
  //showmessage('OK');
  SetHtml(aWeb,s);
end;

在窗体的Create事件中就可以这样来调用了:

with TShowHTML.Create(True) do
  begin
   Web:=wb1;
   FreeOnTerminate:=True;
   Resume;
  end;

不知道有没有在窗口显示前就能激活TWebbrowser的方法。即在Form的Create事件中可以设置TWebbrowser的内容,而不出现那个讨厌的对话框。

在网上找了好多关闭那个对话框的方法,都不理想。

 

Tags:设置 TWebbroser

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接