WebBrowser1.OleObject.document.forms.item(0).elements.item('

[taktaky]

Mit dem Code erscheint zwar keine Fehlermeldung, passiert aber nichts!

Delphi-Quellcode:

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

Das Feld im WebBrowser1 mit dem Namen "vorname" bleibt leer


--------------