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

jck11 發表在 痞客邦 PIXNET 留言(0) 人氣()