Focus auf eigene Anwendung nicht verlieren

[EWeiss]

ok dann halt nicht.

gruss

[erich.wanker]

..der andere Prozess ist z.b.: der Chrome Browser ..

und da sind schon viele "Steps" .. der Browser .. und dann die zu ladende Seite ..

..aber auf das will ich ja während der Eingabe nicht warten ;-) - der Chrome soll einen Tab nach dem anderen rausklotzen, während der User ungebremst seine Eingaben (und die dadurch generierten Aufrufe) macht.

[sx2008]

Was passiert denn wenn du anstelle von Chrom zum Beispiel das Notepad oder den Calculator startest?
Hintergrund der Frage ist herauszufinden ob Chrome irgendwelche Schweinereien mit dem Focus macht die normale Anwendungen nicht machen.

[Klaus01]

.. nun ein Browser ist ja eingetlich eine Ding, das etwas darstellen soll.
Damit der User auch was sieht, geht der Browser in den Vordergrund.

Kannst Du Deine Seitenabfragen nicht mit einer nicht visuellen Komponente durchführen?

Grüße
Klaus

[erich.wanker]

sx2008: .. der focus geht an calc.exe :-(

Klaus01: .. der vom User eingestellte Standardbrowser ist das "Ziel" für die Darstellung

[EWeiss]

scheint ja erledigt zu sein

gruss

[erich.wanker]

zwischenzeitlich hab ich es "ganz fürchterlich grauslig" zum laufen gebracht .. :twisted:

.. naja :pale: ... mit mehrfachen!!? Mausklicks via Timer in mein Fenster ..

Delphi-Quellcode:

  private
    durchlauf:Integer;


procedure TForm1.Edit1Change(Sender: TObject);
begin

      if length(edit1.Text) = 12 then
      begin
        ShellExecute(Form1.Handle, 'open', pchar('http://www.domain.suffix:81/isapi.dll?wert='+edit1.Text), nil, nil, SW_SHOWNOACTIVATE);
        edit1.Text:='';
        timer1.Enabled:=true;
      end;


      if length(edit1.Text) > 12 then
      begin
        edit1.Text:='';
      end;

end;




procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      if not (Key in ['0'..'9', Char(VK_BACK)]) then Key := #0;
end;



procedure TForm1.Timer1Timer(Sender: TObject);
begin

if durchlauf < 10 then
      begin
        SetCursorPos(form1.Left+100,form1.Top+100);
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
        durchlauf:=durchlauf+1;
      end
      else
      begin
        timer1.Enabled:=false;
        durchlauf:=0;
      end;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin
durchlauf:=0;
end;

end.