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