for i:=0 to menu.items.count-1 do for j:=0 to menu.items[i].items.count-1 do if menu.items[i].items[j].caption='xxx' then....
楼上说的对 procedure TForm1.GetMenuItem(XXX:string):boolean; var iLoop:Integer; ControlName:String; begin result:=false; for iLoop := 0 to Self.ComponentCount-1 do begin ControlName := Self.Components[iLoop].Name; if ControlName=xxx then result:=true; end; end;
for j:=0 to menu.items[i].items.count-1 do
if menu.items[i].items[j].caption='xxx' then....
procedure TForm1.GetMenuItem(XXX:string):boolean;
var
iLoop:Integer;
ControlName:String;
begin
result:=false;
for iLoop := 0 to Self.ComponentCount-1 do
begin
ControlName := Self.Components[iLoop].Name;
if ControlName=xxx then
result:=true;
end;
end;
这个你们不会!