动态创建Webbrowser的小问题

3个月前 (11-25 18:56)阅读3回复0
zaibaike
zaibaike
  • 管理员
  • 注册排名1
  • 经验值185820
  • 级别管理员
  • 主题37164
  • 回复0
楼主

  在论坛看到各人对那个问题讨论良多,就是一句话阐明的事,但我似乎生成点背,那个问题不断纠缠着我:不断搞不清:

   我的要求是,动态创建多个webbrowser并展现。因为我用的是delphi2007,创建VCL forms application,挈一个button,间接写代码:

  procedure TForm1.Button1Click(Sender: TObject);

  var myweb:Twebbrowser;

  begin

   myweb:=Twebbrowser.create(self);

   myweb.parentwindow:=self.Handle;

   myweb.SetBounds(button1.Left,button1.Top+button1.Height+10,30,30);

   myweb.Show;

  end;

  编译间接报错:[DCC Error] Unit1.pas(27): E2003 Undeclared identifier: ’Twebbrowser’,郁闷!不成能啊,后来挈进往一个Twebbrowser才气运行胜利;不大白。

  因为是动态创建,我想实现每点击下button1就创建一个webbrowser窗口。于是在implementation前定义:var myweb:array[0..4] of Twebbrowser; n:integer=0;代码如下:

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  myweb[n]:=Twebbrowser.create(form1);

  myweb[n].parentwindow:=self.Handle;

  myweb[n].Top:=button1.Top+button1.Height+10;

  myweb[n].SetBounds(button1.Left+10*n,button1.Top+button1.Height+10,30,30);

  myweb[n].Show;

  myweb[n].Navigate(’’);

  inc(n);

  end;

  可是如许一个webbrowser窗口都展现不了。仍是不大白;尝试了半天都不大白怎么回事?跪求高手赐教!!!

0
回帖

动态创建Webbrowser的小问题 期待您的回复!

取消