Registriert seit: 7. Mai 2008
Ort: Trebur
66 Beiträge
Delphi 2010 Professional
|
dynamische Menüs und Untermenüs unchecken?
26. Sep 2009, 12:40
Hi ,
ich erstelle in meine Programm zur Laufzeit 4 Menües mit Untermenüs, sprich
Menu1...............Menu2...............Menu3..... ..........Menu4
Menu1_Item1...Menu2_Item1...Menu3_Item1...Menu4_It em1
Menu1_Item2...Menu2_Item2...Menu3_Item1...Menu4_It em1
Menu1_Item3...Menu2_Item3...Menu3_Item1...Menu4_It em1
Menu1_Item4...Menu2_Item4...Menu3_Item1...Menu4_It em1
Wenn ich ein Untermenü dann anklicke und eine endsprechende Funktionalität ausführe,
kann ich mit
(Sender as TMenuItem).Checked := True;
einen Haken beim angeklickten Untermenüpunkt setzen.
Doch wie bekomme ich den wieder raus?
Wenn ich wieder auf ein anderen Menüpunktklicke dann ist bei (Sender as TMenuItem)
ja der Zeiger(Index) auf den neu angeklickten Menüpunkt gesetzt also
funktioniert
(Sender as TMenuItem).Checked := False;
nicht.
Weis jemand einen Lösungsweg?
|