Füge mal in dem PopupMenu1Popup am Ende noch hinzu:
Delphi-Quellcode:
TrackPopupMenuEx(PopupMenu1.Handle,
TPM_RECURSE
or TPM_BOTTOMALIGN
or TPM_RETURNCMD,
Mouse.CursorPos.X, Mouse.CursorPos.Y,
Handle,
nil);
Funktioniert auch noch nicht alles (das erste Menü reagiert nicht auf Klicks), aber mehr als vorher.
