SystemMenu-Aktualisierung

[neolithos]

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.