twebbrowser button ohne form!!

[Sprint]

Delphi-Quellcode:

var
  WebDoc: IHTMLDocument2;
  WebElement: IHTMLElement;
  WebButton: IHTMLButtonElement;
  I: Integer;
begin

  WebDoc := WebBrowser1.Document as IHTMLDocument2;
  for I := 0 to WebDoc.all.length - 1 do
  begin
    WebElement := WebDoc.all.item(I, 0) as IHTMLElement;
    if Supports(WebElement, IID_IHTMLButtonElement, WebButton) then
      if WebButton.value = 'blablabla' then
        WebElement.click;
  end;

end;