dynamische Menüs und Untermenüs unchecken?

[Stecky2000]

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?

[DeddyH]

Merk Dir doch einfach das zuletzt gecheckte MenuItem.

Delphi-Quellcode:

...
  private
    FCurrentItem: TMenuItem;
...

if Assigned(FCurrentItem) then
  FCurrentItem.Checked := false;
FCurrentItem := Sender as TMenuItem;
FCurrentItem.Checked := true;

Ungetestet.

[Stecky2000]

Also Danke erstmal, das funktioniert so 1:1.

Ich wollte noch eine Verständnisfrage stellen, doch beim Schreiben hab ich es begriffen wie das ganze funktioniert.
Eigentlich sehr einfach, wenn man es weis

Nochmals vielen Dank!