problem mit button-klick emulieren

[marabu]

Hi,

versuche es mal so:

Delphi-Quellcode:

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

Freundliche Grüße