Thema: Delphi Hook / Popupmenu

Einzelnen Beitrag anzeigen

golisan

Registriert seit: 17. Jan 2007
43 Beiträge
 
Delphi 2007 Professional
 
#8

Re: Hook / Popupmenu

  Alt 12. Aug 2007, 16:39
Hallo,

ich bin jetzt einen (halben?) Schritt weiter!
Der Tipp, statt WH_GETMESSAGE lieber WH_CALLWNDPROC zu verwenden, war genau der richtige!

Ich habe jetzt das Kontextmenü im Zugriff... aber irgendwie komme ich mit dem AppendMenu nicht zurecht.
Ich möchte folgende Struktur
(bestehendes Menü)
Punkt 1
Punkt 2
Punkt 3
(jetzt sollen "meine" Einträge angehängt werden.
MeinPunkt1 (nur ein Untermenüpukt)
UnterMeinpunkt1 (nur ein Untermenüpunkt)
UnterMeinpunkt1_1 (der erste "echte" Menüpunkt)
UnterMeinpunkt1_2
.
.
UnterMeinpunkt2 (nur ein Untermenüpunkt)
UnterMeinpunkt2_1 (der erste "echte" Menüpunkt)
UnterMeinpunkt2_2
.
.
Die Menüpunkte werden auch erzeugt aber irgendwie "rekursiv".
Hier der Code
Delphi-Quellcode:
          nse := createPopupMenu;
          subs := createPopupMenu;
          books := createPopupMenu;

          AppendMenu(subs, MF_STRING or MF_ENABLED, 2000, PChar('UnterMeinpunkt1'));
          AppendMenu(books, MF_STRING or MF_ENABLED, 3000, PChar('UnterMeinpunkt2'));
          AppendMenu(nse, MF_STRING or MF_POPUP, subs, PChar('UnterMeinpunkt1'));
          AppendMenu(nse, MF_STRING or MF_POPUP, books, PChar('UnterMeinpunkt1'));
          AppendMenu(natmenu, MF_STRING or MF_POPUP, nse, PChar('MeinPunkt1'));
und so siehts aus:
(bestehendes Menü)
Punkt 1
Punkt 2
Punkt 3
MeinPunkt1 (nur ein Untermenüpukt) ok soweit
UnterMeinpunkt1 ok soweit
UnterMeinpunkt2 ok soweit
MeinPunkt1(und "darunter" wieder UnterMeinPunkt1/2 usw usw

Was macht "MeinPunkt1" hier?? Habt ihr einen Tipp?
Danke
  Mit Zitat antworten Zitat