Web Dropdown auswählen

[manakinn]

Hi,

wie kann ich im WebBrowser1 ein DropDown einer Seite auswählen ? Also etwas anderes wählen als das Standart ausgewählte

[marabu]

Auf der Google-Seite zum erweiterten Suchen ist ein SelectionElement mit name="num" zur Einstellung der Suchergebnisse pro Seite. Mit dem folgenden Code schaltest du von einer Option zur nächsten.

Delphi-Quellcode:

uses
  MSHTML;

procedure TWebForm.StepButtonClick(Sender: TObject);
var
  doc: IHTMLDocument2;
  sel: IHTMLSelectElement;
  iOptions: integer;
begin
  doc := WebBrowser.Document as IHTMLDocument2;
  sel := doc.all.item('num', 0) as IHTMLSelectElement;
  iOptions := sel.length;
  sel.selectedIndex := Succ(sel.selectedIndex) mod iOptions;
end;

Grüße vom marabu