动态创建webbrowser

[dongmei757]

var
web1,web2,web3...web10 : Twebbrowser; // 或者 web : array[0..9] of TWebBrowser;

procedure CreateWeb(web : Twebbrowser; Panel : TPanel);
begin
  if Assigned(web) then
  begin
    web := TEmbeddedWB.Create(nil);
    TWinControl(web).Parent := Panel;
    web.Visible := True;
    web.Align := alClient;
    web.Silent := True;
end;

procedure TF_Main.Button1Click(Sender: TObject);
begin
CreateWeb(web1,panel1);
end;

procedure TF_Main.Button3Click(Sender: TObject);
begin
CreateWeb(web3,panel3);
end;

procedure CreateWeb(web : Twebbrowser; Panel : TPanel);这样写是不是不行啊，这样创建的是不是web，而不是web1-10呢

web1.Navigate('http://www.baidu.com');报错，能不能写一个动态创建web的过程呢，必须要一个一个的写创建么

[dongmei757]

我想在使用web的时候再创建web,不要先创建隐藏起来。

[dongmei757]

问题解决，留言结贴

[kaikai_kk]

procedure CreateWeb(var web : Twebbrowser; Panel : TPanel);
begin
if not Assigned(web) then
...
end;


每个web的Parent都是Panel，岂不是一个被别一个覆盖了 ?

[flightgirl004]

参考看看