Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi SystemMenu-Aktualisierung (https://www.delphipraxis.net/18169-systemmenu-aktualisierung.html)

neolithos 15. Mär 2004 20:56


SystemMenu-Aktualisierung
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich hole via GetSystemMenu von einem Fenster das System-Menü, welches ich via TrackPopupMenu darstelle.

Nun werden aber nicht die einzelnen Menüpunkte aktualisiert.

Wie kann ich Windows dazu überreden?

Bild im Anhang dient dient zur Erleuterung. Wie man dort erkennen kann ist Wiederherstellen aktiv, obwohl es deaktiviert sein sollte.

Luckie 15. Mär 2004 21:50

Re: SystemMenu-Aktualisierung
 
Versuch es mal mit WM_INITMENU.

neolithos 15. Mär 2004 22:09

Re: SystemMenu-Aktualisierung
 
Die Sequenz sieht derzeit so aus:

Delphi-Quellcode:
              // Zeige Menü an
       pt := PointToSmallPoint(ClientToScreen(Point(x, y)));
       hMenu := GetSystemMenu(frm.Handle, false);
       SendMessage(frm.Handle, WM_INITMENU, hMenu, 0);
       SendMessage(frm.Handle, WM_INITMENUPOPUP, hMenu, Integer(pt));
       iTmp := Cardinal(TrackPopupMenuEx(hMenu, TPM_RETURNCMD, pt.x, pt.y, frm.Handle, nil));
       // Sendet den Befehl weiter
       SendMessage(frm.Handle, WM_SYSCOMMAND, iTmp, 0);
Funktioniert aber noch nicht wie geplant.


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:59 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz