关于 TWebbrowser 的问题。我想通过网页中的脚本来控件FORM 窗体。(30分)

biechangjiang · 2006-06-08

<html>
<head>
<script name="aa" language="javascript">
window.moveTo(0,0);
window.resizeTo(100,100);
</script>
</head>
</html>
这个网页里定义了网页显示的位置与大小。可是我在Webbrowser 显示，并控件不了。怎样才能做到呢！

xf-wangyi · 2006-06-08

你的程序必须读懂脚本并执行它才可以[

]

yeskert1 · 2006-06-08

Webbrowser里，window就是Webbrowser本身，或者说window没了，
所以你的代码看起来无效。

yeskert1 · 2006-06-08

对不起！我说的不对！

biechangjiang · 2006-06-08

var
DoC: IHTMLDocument2;
ActiveElement: IHTMLScriptElement;
HTMLElementCollection:IHTMLElementCollection;
s: string;
begin
Doc := EmbeddedWB1.Document as IHTMLDocument2;
if Doc <> nil then
begin
HTMLElementCollection:= Doc.scripts;
ActiveElement:= HTMLElementCollection.item('',0) as IHTMLScriptElement;
if ActiveElement<>nil then
showmessage(ActiveElement.event);
end;
end;
我这么获取里面的脚本对不对呀！！人都哪去了呀！

biechangjiang · 2006-06-09

顶呀！！高手快来帮帮我哦

e- · 2006-06-09

IE 5.5有事件
windowsetleft
windowsettop
windowsetheight
windowsetwidth
WindowSetResizable

http://msdn.microsoft.com/workshop/browser/webbrowser/reference/ifaces/dwebbrowserevents2/dwebbrowserevents2.asp

biechangjiang · 2006-06-09

to:楼主，代码怎么写呢！

e- · 2006-06-09

选择Component菜单 -> Install Packages ，选择Internet Explorer Components 选项后，按Remove按钮，将原TwebBrowser控件卸载掉，然后再，选择 Import ActiveX Control菜单，选择Microsoft internet controls(version 1.1)项后，Install , 安装后你会发现在ActiveX组件菜单中多了TWebBrowse_V1 和TWebBrowse二个控件。
用ActiveX组件菜单中TWebBrowse处理事件OnWindowSetHeight控制高度，处理事件OnWindowSetWidth控制宽度

关于 TWebbrowser 的问题。我想通过网页中的脚本来控件FORM 窗体。(30分)

biechangjiang

Unregistered / Unconfirmed

xf-wangyi

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

yeskert1

Unregistered / Unconfirmed

biechangjiang

Unregistered / Unconfirmed

biechangjiang

Unregistered / Unconfirmed

e-

Unregistered / Unconfirmed

biechangjiang

Unregistered / Unconfirmed

e-

Unregistered / Unconfirmed

Similar threads