如何在Delphi下获取WebBrowser控件中网页的所有表单(元素)的名称？

Question

Help~~~

Answer 1

找出表单1上面所有元素名：
procedure TForm1.Button1Click(Sender: TObject); 
var  
  ovElements: OleVariant;  
  i: Integer;  
begin  
  ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;  
  for i := 0 to (ovElements.Length - 1) do 
    Memo1.Lines.Append(ovElements.item(i).Name)
end;

Answer 2

这个，是找出所有表单(form)的名字；上例中forms.item(0)可换为相应表单名：
var
  i: Integer;
begin
  for i := 0 to wb.OleObject.Document.forms.Length - 1 do
    meoInfo.Lines.Add(wb.OleObject.Document.forms.Item(i).name);
end;