我采用的是 FOR L:=0 TO ComponentCount-1 DO
BEGIN
IF Components[L] IS TMyImage THEN
begin
//TMyImage(Components[l]).Enabled:=true;
for i:=0 to Form1.MainMenu1.Items.Count-1 do
begin
for j:=0 to Form1.MainMenu1.Items[i].Count-1 do
begin
IF (UpperCase(FORM1.MainMenu1.Items.Items[I].Items[J].NAME)=
UpperCase(TMyImage(Components[L]).Hint))
AND (FORM1.MainMenu1.Items.Items[I].Items[J].Enabled) THEN
begin
TMyImage(Components[L]).Enabled:=True;
end;
end;
end;
end;
END;
但是现在不能实现了,请大家看一下吧!