用TWebBrowser遇到困难了！帮帮我！(50分)

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #1

对于用PageControl和TWebBrowser写浏览器，怎样让PageControl的页标签的Caption属性为网页Name？用PageControl1.ActivePage.Caption:=WebBrowser1.LocationName;不行。他只能对一个窗口有用，多窗口的话，那就是空白了！因为我的TWebBrowser是动态生成的，不能死板的用WebBrowser1.LocationName，怎么办？

 

Z

zhihuali

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #2

将动态建立的 TWEBBROWSER 的 DOCUMENTCOPLETE 事件全部指向：
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
((Sender as TWebBrowser).Parent as TTabSheet).Caption := (Sender as TWebBrowser).LocationName;
end;

 

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #3

接受了1

 

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-16

• #4

我也本以为完全可行！但是编译时出现错误！
Operator not applicable to this operand type.
怎么办？

 

B

bluesadman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-10

• #5

((Sender as TWebBrowser).GetParentComponen as TTabSheet).Caption := (Sender as TWebBrowser).LocationName;