动态创设webbrowser

动态创建webbrowser
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的过程呢，必须要一个一个的写创建么
[解决办法]
procedure CreateWeb(var web : Twebbrowser; Panel : TPanel);
begin
  if not Assigned(web) then
...
end;


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

查看更多 下一篇