怎样在TWebbrowser里完成window.name=xxxx(100分)

  • 主题发起人 主题发起人 xself
  • 开始时间 开始时间
X

xself

Unregistered / Unconfirmed
GUEST, unregistred user!
当一个网页指定要在一个名为xxx的窗口中打开时,可在JavaScript里用window.name="xxx"完成,用TWebbrowser怎么实现这个功能?
 
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant); overload;

TargetFrameName参数就是。
 
但是我怎么把我要在其中打开网页的Webbrowser设为TargetFrameName呢?
 
var
d: OleVariant;
begin
d := WebBrowser1.Document;
d.parentWindow.name := 'mywin';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
aa:OleVariant;
begin
aa:='xx';
webbrowser1.Navigate('http://wwww.sina.com.cn',EmptyParam,aa,EmptyParam)
end;
 
谢谢东兰梦舞
 
后退
顶部