我采用的是 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; 但是现在不能实现了,请大家看一下吧!
在那个 onclick 事件中,根据 Sender 的不同,进入不同的模块。更简单的方法是,把图片的 onclick 事件指向你的菜单事件。
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;
但是现在不能实现了,请大家看一下吧!