Also habe folgenden Code
procedure TForm1.Button67Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.Forms.item(0).eleme nts.item(Edit7.Text).click;
end;
end.
Im Textfeld 'Edit7.Text' steht "23" auf meiner Webseite ist das der Okay Button.
Klicke ich diesen über
procedure TForm1.Button27Click(Sender: TObject);
begin
WebBrowser1.OleObject.Document.Forms.item(0).eleme nts.item(23).click;
end;
an, funktioniert es alles.
Ich hätte aber gerne das Feld mit der "Item(..)" als variable möglichkeit frei gehalten über ein Textfeld steuerbar, aber irgendwie klappt dies leider nicht.. Egal welche Buttons ich über das Textfeld ansteuere immer wieder Fehlermeldungen.
Im Project Project.exe ist eine
Exception EAccessViolation aufgetreten. Meldung 'Zugriffsverletzung bei Adresse
00463233. Lesen von Adresse 0000000. Prozess angehalten...