首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi中控制javascript出现的有关问题,请大家帮忙

2012-02-29 
delphi中控制javascript出现的问题,请大家帮忙html代码inputtype button onmousedown ctlSubmit(eve

delphi中控制javascript出现的问题,请大家帮忙
html代码

<input   type= "button "   onmousedown= "ctlSubmit(event); "     name= 'test '   value= "测试 ">
</body>

<Script   language= "javascript ">
    function   chk(uu)
    {
        alert(uu);
    }
function   ctlSubmit(event)   {
  if   (event.keyCode   ==   13)   {   alert( 'dddd ');   }
}
</script>

delphi代码

var
  doc:IHTMLDocument2;
  all:IHTMLElementCollection;
  item:OleVariant;
  len,i:integer;
begin
  doc:=EmbeddedWB1.Document   as   IHTMLDocument2;
  all   :=   doc.Get_All;
  item   :=   all.item( 'test ',   0)   as   IHTMLElement;
  item.onmousedown();

'会提示缺少对象,如果html里用onmousedown= "chk() "就不会,是event这个参数造成的,请问如何解决

[解决办法]
ie不支持event这个对象.
Nascapt的浏览器支持.javascript这个问题应到web栏目去问.
这样改ie支持:
<input type= "button " onmousedown= "ctlSubmit(); " name= 'test ' value= "测试 ">
</body>

<Script language= "javascript ">
function chk(uu)
{
alert(uu);
}
function ctlSubmit() {
if (window.event.keyCode == 13) { alert( 'dddd '); }
}
</script>

热点排行