请教。。。关于网页浏览器的编程(100分)

北

北斗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #1

我想做一个浏览器，用PAGECONTROL加WEBBROWSER
1。怎样动态在PAGECONTROL中加一个新的TABSHEET？
2。又怎样在新建的TABSHEET中，加入一个TWEBBROWSER控件？
3。或者，怎样实现会更好？
谢谢。。。

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #2

1:
var tab:ttabsheet;(全局)
......
tab:=ttabsheet.create(self);
tab.parent:=PageControl1;
tab.pagecontrol:=PageControl1;
......
2.
tab.InsertControl(webbrowser1);

 

腾

腾龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-30

• #3

同样的代码，实现你两个问题的回答[]
procedure Tmainform.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
var
newbrowser:twebbrowser;
newtabsheet:TTabSheet;
begin
newtabsheet:=TTabSheet.Create(nil);
newtabsheet.PageControl:=pagecontrol1;
newbrowser:=twebbrowser.Create(nil);
newtabsheet.InsertControl(newbrowser);
newtabsheet.Caption:=newbrowser.GetNamePath;
pagecontrol1.ActivePage:=newtabsheet;
ppdisp:=newbrowser.Application;
end;

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-30

• #4

我觉得使用MDI技术好象更好一些。

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-30

• #5

用PageControl好。。

 

Y

Yakuu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #6

对了就是它：
procedure Tmainform.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
var
newbrowser:twebbrowser;
newtabsheet:TTabSheet;
begin
newtabsheet:=TTabSheet.Create(nil);
newtabsheet.PageControl:=pagecontrol1;
newbrowser:=twebbrowser.Create(nil);
newtabsheet.InsertControl(newbrowser);
newtabsheet.Caption:=newbrowser.GetNamePath;
pagecontrol1.ActivePage:=newtabsheet;
ppdisp:=newbrowser.Application;
end;

 

腾

腾龙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-02

• #7

还不结束吗？

 

北

北斗

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-06

• #8

多人接受答案了。