delphi实现获取窗体中webbrowser的句柄，实现了网页文本框的选中（定位点击）

Question

比如 我用 webbrowser 打开 http://www.google.cn/我想实现文本框的选择，让输入框 获得焦点。有人说用SendMessage 实现。请求高手提高完整代码。谢谢。

Answer 1

呵呵！兄弟，你的想法真有创意!!!!!!!!!!
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.com.hk/');
end;procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  myitem:Olevariant;
  i:integer;
begin
myitem := WebBrowser1.Document;
  for i := 0 to myitem.all.length - 1 do
  begin
    if myitem.all.item(i).tagName = 'INPUT' then
    begin
      if Uppercase(myitem.all.item(i).name)='Q' then myitem.all.item(i).value:='提交内容';     if Uppercase(myitem.all.item(i).type)='SUBMIT' then
     begin
      if Uppercase(myitem.all.item(i).name)='BTNG' then myitem.all.item(i).click;
     end;
    end;
  end;
end;