Guten Abend erstmal,
also ich möchte im TWebbrowser nen Button anklicken, allerdings nicht so:
Delphi-Quellcode:
var
iDoc: IHtmlDocument2;
i: integer;
ov: OleVariant;
iDisp: IDispatch;
iColl: IHTMLElementCollection;
InputImage: HTMLInputImage;
begin
WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
if not Assigned(iDoc) then
begin
Exit;
end;
ov := 'INPUT';
iDisp := iDoc.all.tags(ov);
if Assigned(IDisp) then
begin
IDisp.QueryInterface(IHTMLElementCollection, iColl);
if Assigned(iColl) then
begin
for i := 1 to iColl.Get_length do
begin
iDisp := iColl.item(pred(i), 0);
iDisp.QueryInterface(HTMLInputImage, InputImage);
if Assigned(InputImage) then
begin
if InputImage.Name = 'xxxxxx' then
begin
InputImage.Click;
end;
end;
end;
end;
end;
end;
sondern halt mit nem Mausklick, der obere Code entspricht ja eher ner Enter-Taste.
Hat jemand ne Idee?
Wollte es so machen,dass ich erst die Position des Buttons auslesen und dann den Mausklick simulieren, allerdings hab ich keine Ahnung wie ich die Postition des Buttons im webbrowser rausfinde
Ty 4 Help