Webbrowser - Mausklick auf Button simulieren

[Alex R.]

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

[toms]

Hallo,

Funktioniert denn obiger Code nicht oder warum möchtest du einen Mausklick auf den Button simulieren?