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;