很急！帮帮我！(30分)

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #1

我用TWebBrowser和PageControl写同窗口多页面的浏览器，怎样让PageControl的页标签的Caption属性为该网页的Name？
TWebBrowser和TabSheet都是动态新建的！两个全局变量
var
WebBrowser:TWebBrowser;
NewSheet:TTabSheet;

 

N

Nstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #2

NewSheet.Caption :=WebBrowser.LocationURL ;

 

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #3

不行！我试过了！Caption为空白了！

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #4

试过了，下面的方法是可以的，不过你要自己修改一下：
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
caption := (Sender as TWebBrowser).LocationName;
end;

 

Z

zhblc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #5

keyila

 

Y

ywfqd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-20

• #6

使用TWebBrowser的OnTitleChange(Sender: TObject;const Text: WideString);

 

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #7

接受答案了.