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