TMenuItem.Tag

[DerMondistunsereSonne]

Moin,

ich durchlaufe alle Einträge eines Menüs und möchte je nach Tag (0,1,2) darauf reagieren. Das klappt allerdings nicht, obwohl mir Falsch angezeigt wird, so dass ich nun auf einen Namensvergleich gehe, der funktioniert. Jemand eine Idee?

Delphi-Quellcode:

for itm in MainMenu1.Items do
begin
   itm.Enabled := not (itm.Tag = NativeInt(0));
   // Keine Ahnung warum das nicht funktioniert
//         if itm.Tag = NativeInt(1) then;
   if not ((itm.Name = 'xxx') or (itm.Name = 'yyy')) then
   begin
      ShowMessage(itm.Name + '   ' + IntToStr(itm.Tag) + '   ' + BoolToStr((itm.Tag = NativeInt(1))));
      for i := 0 to itm.Count -1 do
      begin
         if itm.Items[i].Tag = NativeInt(0) then
         begin
            itm.Items[i].Enabled := False;
         end else begin
            itm.Items[i].Enabled := True;
         end;
      end;
   end;
end;