ALT-TAB bei nur einer offenen Applikation

[blauweiss]

Hallo James,

ja, unsere Applikationen (1-5 "normale Fenster", einige dutzend "Vorne-Fenster") laufen nun problemlos. Inklusive Minimieren.

Wir mußten dafür jedoch die ausgelieferte Forms.pas anpassen. Das hat den Nachteil, daß wir diese Applikationen nun nicht mehr mit Runtime-Packages compilieren können.


Unsere Änderungen in der Forms.pas:

Delphi-Quellcode:

procedure TApplication.WndProc(var Message: TMessage);
...
        WM_SIZE:
          if WParam = SIZE_MINIMIZED then
            begin
              DoShowOwnedPopups(false);
            end;
...

sowie

Delphi-Quellcode:

procedure TApplication.Restore;
...
    DoShowOwnedPopups(true); // RBRBRB
...

Die Methode TApplication.DoShowOwnedPopups haben wir aus der Delphi2009 Forms.pas abgekupfert.
Bei Interesse kann ich Dir den Code (~2 Bildschirmseiten) geben. Bin aber erst wieder am Montag im Büro.


blauweiss