[Gelöst] Atomatischer klick auf TWebBrowser geht nicht

[5etH]

hallo zusammen,

ich habe das problem das ich einen atomatischen Klick (mouse_event(MouseEventF_leftDown,x,y,0,0)
auf eine TWebBrowser Komponente Klicken möchte, er aber nicht klickt.

Zum Ablauf:
ich lese koordinaten für den klick ein die er nach und nach klicken soll.
das funktioniert auf dem desktop ohne weitere probleme ... aber wenn ich in dem browser klicken möchte macht er nix... wenn ich aber manuel im browser klicke macht er alles einwandfrei...

hier einmal der entsprechende code...

Delphi-Quellcode:

procedure TForm1.Button10Click(Sender: TObject);
var n,m,x,y : Integer;
  I: Integer;
begin
zaehler := 0; //Globale Variable
  while zaehler < listbox3.count - 1 do
  begin
    if webbrowser1.busy <> true then
    begin
      for I := 0 to Listbox1.Count - 1 do
      begin
        n := StrToInt(listbox1.items[i]); //X Koordinaten
        m := StrToInt(listbox2.items[i]); //Y Koordinaten
          if (n = 0) and (m = 0) then
          begin
            sleep(200);
            entertext(nick);
          end;
          if (n = 9999) and (m = 9999) then 
          begin
            key := listbox3.Items[zaehler];
            sleep(200);
            EnterText(key);
          end;
          if (m <> 0) and (m <> 9999) and (n <> 0) and (n <> 9999) then
          begin
            setCursorPos(m,n); 
            sleep(100);
            mouse_event(MouseEventF_leftDown,x,y,0,0);
            sleep(500);
            mouse_event(MouseEventF_leftUp,x,y,0,0);
            sleep(100); //Sleeps sind notwending aber nicht in der Größe ... nur zu testzwecken
          end;
      end;

      sleep(100);
      zaehler := zaehler+1;
    end;
  end;
end;

Zum Zweck:

das ganze ist für die Firma da wir mit einer datenbank arbeiten die webgestützt ist und ich die ganzen einträge in exel hab ^^ ich lese sie vorher in listbox3 ein und stecke sie nach und nach in die im browser vorgesehenen felder ein...

ich hoffe ihr könnt mir helfen
lg 5etH