Anderem Program den Fokus übergeben

[rinolduz]

Guten Abend,

ich habe aktuell das Problem, dass ich gerne dem Fenster, welches vor
meiner Anwendung den Fokus hatte, den Fokus wieder zurück geben würde.
Gibt es dazu eine Möglichkeit?

Vielen Dank schonmal im Vorraus!

[KodeZwerg]

Hallo, ich würde mir mit GetForegroundWindow das alte/aktive Fenster merken und mit SetForegroundWindow setzen.
Da vielleicht auch mit GetParent arbeiten.

Hilft Dir das weiter?

Ps: Das "merken" würde ich in der .dpr Datei gleich hinter "Begin" machen und das "setzen" nachdem Deine Forms erstellt sind, falls es Vcl ist.

[dummzeuch]

Schwierig ist der Teil "merken Welches Programm vorher den Fokus hatte". Wenn man das Handle dieses Fensters hat, reicht

Delphi-Quellcode:

  GetWindowThreadProcessId(OtherHandle, pid);
  if pid = 0 then begin
    LogInfo('Process Id for Windows ' + _WndClass + ' not found');
    Exit;
  end;
  Res := AllowSetForegroundWindow(pid);
  if not Res then begin
    LogInfo('AllowSetForegroundWindow for ' + _WndClass + ' failed');
    Exit;
  end;
  Res := SetForegroundWindow(OtherHandle);
  if not Res then
    LogInfo('SetForegroundWindow for ' + _WndClass + ' failed');

Ich weiss allerdings nicht, wie man das vorher aktive Programm ermittelt. Evtl. einfach beim Start das Fenster im Vordergrund ermitteln? Oder vielleicht das, welches unter dem eigenen Fenster liegt?

[KodeZwerg]

Also das mit dem ermitteln ist ein klacks.
  if GetParent(GetForegroundWindow) = 0 then lHwnd := GetForegroundWindow else lHwnd := GetParent(GetForegroundWindow); .
Diese Zeile in .dpr gleich hinter begin einfügen.
In der MainForm das hier einfügen

Delphi-Quellcode:

var
  FormX: TFormX;
  lHwnd: HWND;

...

procedure TFormX.FormActivate(Sender: TObject);
begin
  if not Win32Check(SetForegroundWindow(lHwnd)) then
    mmo1.Lines.Add('SetForegroundWindow failed');
end;

So funktioniert es genau so wie der TE es wollte.

[EWeiss]

Zitat von KodeZwerg:

Also das mit dem ermitteln ist ein klacks.
  if GetParent(GetForegroundWindow) = 0 then lHwnd := GetForegroundWindow else lHwnd := GetParent(GetForegroundWindow); .
Diese Zeile in .dpr gleich hinter begin einfügen.
In der MainForm das hier einfügen

Delphi-Quellcode:

var
  FormX: TFormX;
  lHwnd: HWND;

...

procedure TFormX.FormShow(Sender: TObject);
begin
  SetForegroundWindow(lHwnd);
end;

Das "setzen" klappt nicht obwohl korrektes Handle Anhang 49466. (Ich habe .exe aus dem TC heraus gestartet)
Vielleicht braucht man dafür mehr Rechte?

Und du glaubst das klappt so wie du denkst?
Du weist doch gar nicht welcher Prozess den Focus hat und ob das Handle das du einholst das des Aktiven Fensters ist.
Es kann genauso gut auch das eines Button des aktiven Fensters sein wenn dieser in der anderen Anwendung den Focus hat.

Ich würde so vorgehen.

GetForegroundWindow
GetWindowThreadProcessId
AttachThreadInput (true)
GetFocus
AttachThreadInput (false)

Die lösung von @dummzeuch ist schon näher dran
Was das mit dem GetParent soll müsstest du mir mal näher erläutern.

Aber gut macht mal

gruss

[KodeZwerg]

Hab eine funktionierende Variante geupdatet. Man könnte noch einen Test einfügen ob man DesktopHandle erwischt hat aber ansonsten macht es alles was der TE wollte.
Bitte teste und überzeuge Dich selbst, Danke.

edit
GetParent stellt sicher das ich kein Control erwische sondern ein Fensterhandle.