Menu.Checked - automatisch?

[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];