Problem beim Formularaufbau

[marabu]

Hi,

du musst mehrere DocumentComplete-Handler vorhalten oder du setzt den Handler einfach auf nil:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  with webbrowser1 do
  begin
    OnDocumentComplete := WebBrowserDocumentComplete;
    Navigate('http://localhost/button.html');
  end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  with WebBrowser1 do
    if pDisp = DefaultInterface then
    begin
      OnDocumentComplete := nil; 
      OleObject.document.forms.item('form1').elements.item('textfield').value := 'hallo';
      OleObject.document.forms.item('form1').elements.item('submit').click;
    end;
end;

Getippt und nicht getestet.

Freundliche Grüße