Hallo Metti,
existiert in den Aktionen der Listbox kein ConstructContetualMenu(....) ?
Bei mir existiert das. Darin kannst Du das Contexmenu basteln z.B:
dim men_item As new MenuItem
dim men_item2 As new MenuItem
men_item2=New MenuItem(k_txt_Messmarke_ein_hierher)
men_item2.tag="MM_ein"
base.append men_item2
if MM_ein_flag Then
men_item2=New MenuItem(k_txt_Messmarke_aus)
men_item2.tag="MM_aus"
base.append men_item2
end if
men_item.Text=k_txt_Neuer_Zielpunkt
men_item.Enabled=true
men_item2=New MenuItem("Surface")
men_item2.tag="NZP_surf"
men_item.append men_item2
men_item2=New MenuItem("Air")
men_item2.tag="NZP_air"
men_item.append men_item2
men_item2=New MenuItem(k_txt_Submarine)
men_item2.tag="NZP_sub"
men_item.append men_item2
base.append men_item
return true
Das macht im 2. Teil ein Menüpunkt mit submenue
Ausgewertet wird das in der Aktion ContextualMenuAction.
Ich nutze die Tags um auszwerten, was gewählt wurde.
Gruß
Michael
http://www.budget-software.de
Am 13.07.2011 um 17:37 schrieb Stefan Mettenbrink:
> Maximilian Tyrtania wrote:
>
>> Guck mal in Deinem alten Projekt unter Module. Da müsstet Du etwas wie
>> menuitemextensions haben.
>
> Ich finde da keine Deklarationen außer der DIM-Anweisung im
> MouseDown-Event. Ich finde es schon merkwürdig, dass RS Base nicht
> kennt, wenn es einige Zeilen zuvor deklariert wurde.
>
> Wäre nett, wenn mal jemand ein Miniprojetkt (nur ein Kontextmenü in
> einem MouseDown-Event) zum anschauen irgenwo hochladen würde. Ich
> komme irgendwie nicht weiter. :-(
>
> MfG, Metti.
>
