[NonVCL] TreeView PopUp Menü zuordnen

[mirage228]

Hallo,

ich versuche mit non VCL einem TreeView ein PopUp Menü zuzuordnen:

Delphi-Quellcode:

  // FTree: HWND;
  // FPopUp: HMENU
  FTree := CreateWindowEx(WS_EX_CLIENTEDGE, WC_TREEVIEW, nil,
    WS_VISIBLE or WS_CHILD or TVS_HASLINES or TVS_LINESATROOT
    or TVS_HASBUTTONS, 0, 0, FPage.GetWidth, FPage.GetHeight, FPage.GetHandle,
    0, hInstance, nil);
  FPopUp := CreatePopupMenu;
  AppendMenu(FPopup, MF_STRING, 0, 'Aktualisieren');
  SetMenu(FTree, FPopUp);

Leider erscheint das Menü beim Rechtsklick nicht. Was mache ich falsch und wie kann ich das PopUp Menü anzeigen lassen?

mfG
mirage228