Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: submenüs erzeugen

  Alt 10. Mai 2008, 18:37
ich habs jetzt rausbekommen wie es genau geht, naja hätt ich eigentlich auch gleich drauf kommen können!!

naja wen es intressiert der kann hier nen kleinen blick haschen wie ichs gemacht hab..:


Delphi-Quellcode:
            hm := CreatePopupMenu; // hauptmenü erstellen
            hmsub := CreatePopupMenu; // Untermenü erstellen

            AppendMenu(hmsub, MF_STRING, IDM_ENGLISH, 'English'); //untermenü mit links versehen

            AppendMenu(hm, MF_STRING, IDM_SHOW, 'Show'); //hauptmenü mit links versehen
            AppendMenu(hm, MF_POPUP, hmsub, 'haupmenü'); //untermenü dem hauptmenü zuordnen

            DestroyMenu(hmsub); // und natürlich alles wieder beseitigen
            DestroyMenu(hm); // und natürlich alles wieder beseitigen
das sollte reichen!!
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat