Ja, das geht ganz einfach. Zum Beispiel:
dim base as new MenuItem
base.append new MenuItem("Item 1")
base.append new MenuItem("Item 2")
dim subMenu as new MenuItem("Item 3")
subMenu.Append new MenuItem("SubItem 1")
subMenu.Append new MenuItem("SubItem 2")
subMenu.Append new MenuItem("SubItem 3")
base.append subMenu
base.append new MenuItem("Item 4")
// Bei 'base.PopUp' kannst Du optional auch die Koordinaten angeben,
// an denen das Menü angezeigt werden soll
dim selection as MenuItem = base.PopUp() 'oder
'dim selection as MenuItem = base.PopUp(100,200)
if not(selection Is nil) then
Select Case selection.text
Case "Item 1"
MsgBox selection.text
Case "Item 2"
MsgBox selection.text
Case "Item 3"
MsgBox selection.text
Case "Item 4"
MsgBox selection.text
Case "SubItem 1"
MsgBox selection.text
Case "SubItem 2"
MsgBox selection.text
Case "SubItem 3"
MsgBox selection.text
end Select
end if
Gruß
Christian
--
----------------------------------------
Christian Dorn
Email: [email protected]
REALbasic 2008.5 Pro
iMac 3.06 GHz Intel Core 2 Duo, 4 GB RAM
PowerMac G5 2x2GHz, 1.5 GB RAM
----------------------------------------
Am 27.02.2009 um 02:07 schrieb Klemens Klarhoelter:
Hi folks,
gib es eine Möglichkeit im Kontext-Menü Untermenüs anzulegen?
Mit freundlichen Grüßen
Klemens Klarhoelter-Selbst
kNetSoft
[email protected]
