Webbrower里如何得到输入框的焦点呢

问答知识库用户 |浏览183次
收藏|2014/05/17 22:00
如题

满意回答

2014/05/17 22:00

参考下面的代码:
uses Ole2, MSHTML;
{$R *.dfm}

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  WebBrowser1.OleObject.Document.getElementByID('txtcode').value:='这是默认值';
  WebBrowser1.OleObject.Document.getElementByID('txtcode').focus();
end;


procedure TForm7.Button1Click(Sender: TObject);
var
  I: Integer;
  TestItem: Olevariant;
begin
  if WebBrowser1.Document <> nil then
    IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus;
  TestItem := WebBrowser1.Document;
  for I := 0 to TestItem.all.length - 1 do
  begin
    if TestItem.all.item(I).tagName = 'INPUT' then
    begin
      TestItem.all.item(I).value := '提交内容';
      TestItem.all.item(I).focus();
      Break;
    end;
  end;
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('www.baidu.com');
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...