TComboBox in TPopupMenu

[Schwedenbitter]

Ich habe weiter probiert:
Man kann die Größe ändern, indem man das Menü selbst malt und die Parameter in OnDrawItem und OnMeasureItem für jedes einzelne Element anpasst. Aber das Ergebnis befriedigt mich optisch nicht. Zum anderen Problem des riesigen Auswahlfensters habe ich nichts gefunden.

Ich bin jetzt so weit, dass ich ein Fake-Menü über eine Form gebastelt und das Aussehen/Verhalten dem von TPopupMenu angepasst habe. Allerdings habe ich ein Problem mit der Rückmeldung:
Wenn ich das Fenster mit ShowModal anzeige, wäre alles schick. Allerdings passt dann das Verhalten als PopupMenu nicht mehr. Z.B. wird das Fenster nicht bei einem Klick woanders hin geschlossen und es ändert die Position nicht.
Zeige ich es mit Show , klappt das zwar. Aber ich tue mich schwer damit den Status des Fensters mitzubekommen.

Gibt es ein Ereignis im Hauptform, dass das Schließen eines SubForms meldet?

Anderenfalls muss ich in den sauren Apfel beißen und mit Messages arbeiten. Den Quelltext habe ich angehängt. Manchmal sagt der mehr als Worte.