procedure TForm3.FormActivate(Sender: TObject); var
        MItem: TMenuItem;
        i:integer;
begin
       for   i:=0 to form1.componentcount-1 do
             begin
                 if    form1.components[i] is tmenuitem then
                          tmenuitem(form1.components[i]).visible:=false;
             end;
     for   i:=0   to   0     do
           begin
                   MItem:=FindComponent('qq1') as TMenuItem;
                   MItem.Visible := True;
            end;
end;
我这个 菜单是( MItem)  属于 form1(主窗体的)  所以
      for   i:=0   to   0     do
           begin
                   MItem:=FindComponent('qq1') as TMenuItem;
                   MItem.Visible := True;
            end; 应该是不行
可是我这样写:     for   i:=0   to   0     do
           begin
                   form1.MItem:=FindComponent('qq1') as TMenuItem;
                   form1.MItem.Visible := True;
            end;也不行啊!
各位大哥 ,怎样写啊?谢谢!