Get Last Active Window

[blablab]

Hallo!

Ich hab ein TrayIcon mit dem ich meine Anwendung minimieren bzw wieder aktivieren möchte. Das bedeutet, wenn die Anwendung minimiert wird, wird sie "gerestored" und aktiviert. Ist die Anwendung allerdings schon "gerestored" dann soll sie nur dann minimiert werden, wenn sie gerade aktiv ist, sonst soll sie aktiviert werden (denn es kann ja auch sein sie befindet sich hinter einem anderen Fenster).

Das Problem ist jetzt jedoch, sobald ich auf das TrayIcon klicke, wird die TaskBar aktiviert und es reicht jetzt nicht aus zu schauen welches Fenster aktiviert ist, sondern ich muss herausfinden, welches Fenster vor der TaskBar aktiviert war.

Deshalb benutze ich GetForegroundWindow und arbeite mich dann in der Z-Order solange durch, bis ich ein sichtbares Fenster finde, das nicht die TaskBar ist.

Hier stoße ich jetzt aber auf ein weiteres Problem, denn TopMost-Fenster stehen immer höher in der Z-Order. Im Moment mache ich es so, dass ich das erste TopMost-Fenster und das erste Nicht-TopMost-Fenster nehme (das nicht die TaskBar ist) und wenn eines der beiden mein gesuchtes Fenster ist, dann gehe ich davon aus, dass dieses zuvor aktiv war. Leider komme ich hier aber nicht weiter und kann nur raten. Denn ob nun das TopMost- oder das Nicht-TopMost-Fenster zuvor aktiv war, kann ich aus der Z-Order nicht herauslesen.

Ich benötige mehr/andere Informationen, und irgendwo muss das auch gespeichert sein, denn Windows weiß ja auch welches Fenster als nächstes aktiviert wird (Siehe Alt+Tab). Allerdings finde ich hierzu nichts.

Kann mir vielleicht jemand weiterhelfen?

Mit freundlichen Grüßen
blablab

[nahpets]

Du bekommst doch in den Fenstern mit, wenn sie aktiviert werden. (OnActivate-Ereignis).

Mach' Dir eine Variabel, in die ein Formular in dem Ereignis reinschreib: 'Ich bin aktiv'. Also z. B. Self.

Im Klickereignis Deines TrayIcons schaust Du nun in diese Variabel und aktivierst "den Inhalt".

Sowas in der Art:

Delphi-Quellcode:

type
  TFormKundenverwaltung = class(TForm)
    fLastForm : TForm;
    TrayIcon: TTrayIcon;
...
  public
    { Public-Deklarationen }
    LastFornm : TForm read fLastForm write fLastForm;
...
procedure TFormKundenverwaltung.TrayIconDblClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Assigned(fLastForm) then begin
    if flastForm is TForm then begin
      // Was auch immer hier passieren soll ...
      ShowMessage(fLastForm.Caption);
    end;
  end;
end;

procedure TFormKundenverwaltung.FormActivate(Sender: TObject);
begin
  fLastForm := Self;
end;

...

procedure TFormAdressen.FormActivate(Sender: TObject);
begin
  FormKundenverwaltung.LastForm := Self;
end;

...

procedure TFormRechnungen.FormActivate(Sender: TObject);
begin
  FormKundenverwaltung.LastForm := Self;
end;

(ungetestet hingedaddelt)

Mit 'nem Nachfahren Deines TrayIcon, dem Du ein zusätzliches Attribut "LastForm" gönnst, wäre das vermutlich dann viel eleganter zu lösen.

[blablab]

Vielen Dank, so mach ichs!

Edit:
Leider ist das immer noch keine saubere Lösung.
Ich musste es etwas abwandeln:
Ich verwende WM_ACTIVATEAPP um das Deaktivieren meiner Anwendung mitzubekommen und gleich zu wissen, welche Anwendung als nächstes aktiviert wird. Nur wenn die TaskBar die als nächstes aktivierte Anwendung ist, merke ich mir den Zeitpunkt (GetTickCount).

Ich weiß also, wenn ich nicht die TaskBar als nächstes deaktiviere, darf ich meine Anwendung nicht minimieren. Außerdem kann ich mit ziemlicher Sicherheit sagen, wenn ich die TaskBar aktiviere und wenige Millisekunden später das TrayIcon klicke, muss ich meine Anwendung minimieren.

Leider weiß ich aber nicht, was ich tun soll, wenn die TaskBar aktiviert wurde und erst Sekunden später das TrayIcon geklickt wird. Es könnte sein in der Zwischenzeit wurden andere Anwendungen aktiviert oder der Benutzer musste erst die "zwei Pfeilchen nach oben" klicken und das TrayIcon heraussuchen.

Das heißt ich komme so nicht wirklich weiter. Wieder funktioniert es meistens, aber unter bestimmten Voraussetzungen muss ich raten...