收录日期:2019/04/18 21:07:36 时间:2016/06/01 15:44:07 标签:网络通信/分布式开发
HTML代码如下
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>

<body>
<form name="form1" method="post" action="listcon.asp" class="aa1" >
  <input class=etext maxlength=50 name=warename size="50">
  <select name=Group1 size=1 class="aa1">
                  <option>请选择</option>
                  <option value="真">true</option>
                  <option value="假" selected>false</option>
                </select>
  <textarea name="pro_add" cols="50"></textarea>
  <input type="text" name="unitname" size="50">
  <input name=B1 type=submit value=确定>
</form>
</body>
</html>

里面有2个input,1个select,1个textarea,1个确定按钮。

我想当用光标点选5个中的任何1个时,能把变量或值提取出来,并且当点“确定”按钮提交时,能把提交请取提取出来。

有没有办法解决,谢谢!
放了一天了,都没有人看过,自己顶一下。
function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean; 
var 
  i, j: Integer; 
  FormItem: Variant; 
begin 
  Result := False; 
  //no form on document 
  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then 
  begin 
    Exit; 
  end; 
  //count forms on document 
  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do 
  begin 
    FormItem := WebBrowser.OleObject.Document.forms.Item(I); 
    for j := 0 to FormItem.Length - 1 do 
    begin 
      try 
        //when the fieldname is found, try to fill out 
        if FormItem.Item(j).Name = FieldName then 
        begin 
          FormItem.Item(j).Value := Value; //這裹可取得或設置value的值
          Result := True; 
        end; 
      except 
        Exit; 
      end; 
    end; 
  end; 
end; 

文件粉碎 关于vector的问题 多用户mysql表设计是个什么样的原理啊 可有什么办法得到数据库字段的最原始内容? 从txt文件读入数据并保存在链表中 .innerHTML含有JS代码 Chrome 浏览器不支持 api判断滑轮滚动向上和向下 iexmltls 求源代码、多注释、谢谢各位高手了 新手问两个问题,怎么把鼠标锁定在一定区域,怎么实现图片在widget上得拖拽 BitBlt 截屏时出现的问题 有没有在线销售管理系统 求vc++编写的班级成绩管理系统啊 急急急啊 [help] c语言监控mysql数据更新 请教个问题,是一个动态菜单,只能搬一部分代码。请前辈们帮忙啦~ DIV中文本中html标签解析 C# \"最近打开的文件\"项中的最近文件如何添加事件响应代码? 请教大家读取手动插入access数据库的图片问题 tomcat应用调用EJB服务的怪异问题 请问如何截取这样的字符串。菜鸟求助。 vlc能同时播放两路独立的实时多媒体流吗? Asp.net 4.0 我想把vs2008安装在U盘上以便在其他电脑方便运行,该怎么办? VS2008 unicode下curl使用求助 我使用maven添加依赖,maven找到了依赖,但是获取不了jar的依赖 请教一个WinFrom的问题 新手 今天去做ASP.NET实习生,有点迷茫。 截取小数部分,数发生了变化 求前辈知道个MySQL数据库备份的问题,用的PHP语言实现 VC中go to definition of 用不了了