<tr>
<td><b>验证码</b></td>
<td><input id="register" style="width:88px; float:left" name="register" type="text" class="input1" value="点击显示验证码" onkeyup="javascript:if(this.value.length==6)checkrandimgfast(7);" onclick="this.value=''"/>
<div id="m7" style="display:none; width:16px; float:left; margin-left:2px; padding-top:2px;"> <img id="rightError" src=""/></div></td>
</tr>以上是网页的代码,在Delphi的WebBrowser中怎么让这个register对话框获得输入焦点呢?
<td><b>验证码</b></td>
<td><input id="register" style="width:88px; float:left" name="register" type="text" class="input1" value="点击显示验证码" onkeyup="javascript:if(this.value.length==6)checkrandimgfast(7);" onclick="this.value=''"/>
<div id="m7" style="display:none; width:16px; float:left; margin-left:2px; padding-top:2px;"> <img id="rightError" src=""/></div></td>
</tr>以上是网页的代码,在Delphi的WebBrowser中怎么让这个register对话框获得输入焦点呢?
解决方案 »
- 定义枚举类型出错.这是为什么..
- stringgrid如何用鼠标右键获得其中的格子的值
- 关于在delphi中使用MsWinsock.ocx控件,用senddata发送数据的问题,请专家看看!
- hotmail邮件的POP3和SMTP如何设置?
- ======ClientSocket控件关闭不了socket连接!======
- 谁知道邮件中的=?GB2312?Q于=?GB2312?B的差别
- DELPHI中怎样实现以下DOS命令?
- 怎样给.ini配置文件中每一个Section之间空行
- 求救:想利用线程监听其他电脑IO端口的UDP包,如何实现呢?
- 关于字符ASCII码转换的问题,在线等候,急!
- Delphi2010生成的程序体积太大了
- Delphi XE安装ComPort控件?
可以获得焦点 但是文字没有消失要鼠标点一下才消失试试我的
var
Doc:IHTMLDocument2;
Element:OLEVariant; Doc := WebBrowser1.document as IHTMLDocument2;
Element:=doc.all.item('register',0);
Element.Focus;
Element.click;
俺不熟,只能这样了,应该能满足你的要求,呵呵~~~
if name is register then click 测试一下
WebBrowser1.OleObject.document.getByTagName('input');
提示Method 'getByTagName' not supported by automation object
是我写错了吗?