Popup-Fenster! Wie?

[neolithos]

Das Problem ist aber, dass das Hauptfenster den Focus verliert und das sieht dumm aus.

Übrigens ich hab die Window's Klasse für Kontextmenüs ermittelt:
#32768

Und ein Fenster aus ihr erzeugt:

Delphi-Quellcode:

  hMenu := CreatePopupMenu;
  InsertMenu(hMenu, MF_BYPOSITION, MF_STRING or MF_OWNERDRAW, 1000, 'test');
  InsertMenu(hMenu, MF_BYPOSITION, MF_STRING, 1001, 'test');
  Windows.Beep(200, 200);
  h := CreateWindowEx(
    WS_EX_DLGMODALFRAME or
    WS_EX_TOPMOST or
    WS_EX_TOOLWINDOW or
    WS_EX_WINDOWEDGE, '#32768', 'tesst',
    WS_VISIBLE or
    WS_CLIPSIBLINGS or
    WS_BORDER,
    20, 20, 100, 100, Handle, hMenu, HInstance, 0);
  ShowWindow(h, SW_SHOW);

Hat erstmal nen schönen Effekt ist aber unbrauchbar. Da dieses Fenster anders reagiert.