var
 Doc: OleVariant;
 I: Integer;
 Select: OleVariant;
 Option: OleVariant;
begin
 Doc:= WebBrowser1.Document;
 Select:= Doc.all.tags('Select').item(0);
 for I:= 0 to Select.Options.Length - 1 do begin
  Option:= Select.Options.item(OleVariant(I));
  ShowMessage(Option.Text);
 end;
end;
參考資料:delphi-webbrowser · Delphi: Using IE's WebBrowser
全站熱搜
留言列表