procedure TForm1.N4Click(Sender: TObject);
var
i:integer;
begin
for i:=3 to mainmenu1.Items.Items[0].Count-3 do//这个for用来干什么?
begin
mainmenu1.Items.Items[0].Items[i].OnClick:=mainmenu1.Items.Items[0].Items[2].OnClick;{这个语句用来干什 么?} end;
self.Close;
end;
var
i:integer;
begin
for i:=3 to mainmenu1.Items.Items[0].Count-3 do//这个for用来干什么?
begin
mainmenu1.Items.Items[0].Items[i].OnClick:=mainmenu1.Items.Items[0].Items[2].OnClick;{这个语句用来干什 么?} end;
self.Close;
end;
TForm1.N4Click
从这可以看出会有4个子菜单,它可以从第3个开始循环,也可以从第0个开始