Menu.Checked - automatisch?

[CalganX]

Hi,
ist irgendwie möglich in einem Menu alle Items automatisch checked := false außer, auf das man geklickt hat... Ungefähr so:

Delphi-Quellcode:

procedure CheckAll(Item: TMenuItem);
begin
  HMenu.Checked := false; // HMenu ist das übergeordnete Item
  Item.Checked := true;
end;

Chris

PS: Musste einfach mal die neue Funktion testen... Aber die Frage ist ernst gemeint...

[jbg]

Meinst du so was:

Code:

[b]procedure[/b] CheckAll(Item: TMenuItem);
[b]var[/b]
  P: TMenuItem;
  i: Integer;
[b]begin[/b]
  Item.Checked := True;
  P := Item.Parent;
  [b]if[/b] P = [b]nil then[/b] Exit;
  [b]for[/b] i := 0 [b]to[/b] P.Count - 1 [b]do[/b]
    [b]if[/b] P.Items[i] <> Item [b]then[/b]
      P.Items[i].Checked := False;
[b]end[/b];

[CalganX]

Supi, jetzt geht's...
Das ist nämlich echt ätzend, wenn man erstmal hunderte von Menüeinträgen deaktivieren muss...

Chris

[jbg]

Hast du schon mal an die TMenuItem.RadioItem Eigenschaft gedacht? Die macht das nämlich automatisch.

[CalganX]

Die Eigenschaft habe ich bei Java mal gesehen, aber bei Delphi nie gefunden...

Chris