Thema: Delphi TMenuItem.Tag

Einzelnen Beitrag anzeigen

DerMondistunsereSonne

Registriert seit: 9. Apr 2024
47 Beiträge
 
Delphi 12 Athens
 
#1

TMenuItem.Tag

  Alt 27. Mär 2025, 10:56
Delphi-Version: 5
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;
  Mit Zitat antworten Zitat