WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('

[marabu]

C'est tres mysterieuse.

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  form, element: OleVariant;
begin
  form := WebBrowser.OleObject.Document.forms.item('f');
  if not VarIsClear(form) then
  begin
    element := form.elements.item('q');
    if not VarIsClear(element) then
      element.value := 'taktaky';
  end;
end;

Wenn ich auf http://www.google.de navigiere und den Button drücke, dann wird das Suchfeld gefüllt, auf anderen Seiten wird ein Fehler vermieden. Das waren deine beiden Anforderungen - n'est-ce pas?

Salut